subroutine check_switches1 (ierr) implicit none integer*4 ierr, is,ie, iexample integer*4 LLm,Lm,MMm,Mm,N, LLm0,MMm0 parameter (LLm0=503, MMm0=601, N=42) parameter (LLm=LLm0, MMm=MMm0) integer*4 Lmmpi,Mmmpi,iminmpi,imaxmpi,jminmpi,jmaxmpi common /comm_setup_mpi1/ Lmmpi,Mmmpi common /comm_setup_mpi2/ iminmpi,imaxmpi,jminmpi,jmaxmpi integer*4 NSUB_X, NSUB_E, NPP integer*4 NP_XI, NP_ETA, NNODES parameter (NP_XI=2, NP_ETA=2, NNODES=NP_XI*NP_ETA) parameter (NPP=1) parameter (NSUB_X=1, NSUB_E=1) integer*4 NWEIGHT parameter (NWEIGHT=1000) integer*4 stdout, Np, padd_X,padd_E common /stdout/stdout parameter (Np=N+1) parameter (Lm=(LLm+NP_XI-1)/NP_XI, Mm=(MMm+NP_ETA-1)/NP_ETA) parameter (padd_X=(Lm+2)/2-(Lm+1)/2) parameter (padd_E=(Mm+2)/2-(Mm+1)/2) integer*4 NSA, N2d,N3d, size_XI,size_ETA integer*4 se,sse, sz,ssz parameter (NSA=28) parameter (size_XI=7+(Lm+NSUB_X-1)/NSUB_X) parameter (size_ETA=7+(Mm+NSUB_E-1)/NSUB_E) parameter (sse=size_ETA/Np, ssz=Np/size_ETA) parameter (se=sse/(sse+ssz), sz=1-se) parameter (N2d=size_XI*(se*size_ETA+sz*Np)) parameter (N3d=size_XI*size_ETA*Np) real Vtransform parameter (Vtransform=2) integer*4 NT, NTA, itemp, NTot integer*4 ntrc_temp, ntrc_salt, ntrc_pas, ntrc_bio, ntrc_sed integer*4 ntrc_subs, ntrc_substot parameter (itemp=1) parameter (ntrc_temp=1) parameter (ntrc_salt=1) parameter (ntrc_pas=0) parameter (ntrc_bio=0) parameter (ntrc_subs=0, ntrc_substot=0) parameter (ntrc_sed=0) parameter (NTA=itemp+ntrc_salt) parameter (NT=itemp+ntrc_salt+ntrc_pas+ntrc_bio+ntrc_sed) parameter (NTot=NT) integer*4 ntrc_diats, ntrc_diauv, ntrc_diabio integer*4 ntrc_diavrt, ntrc_diaek, ntrc_diapv integer*4 ntrc_diaeddy, ntrc_surf & , isalt parameter (isalt=itemp+1) parameter (ntrc_diabio=0) parameter (ntrc_diats=0) parameter (ntrc_diauv=0) parameter (ntrc_diavrt=0) parameter (ntrc_diaek=0) parameter (ntrc_diapv=0) parameter (ntrc_diaeddy=0) parameter (ntrc_surf=0) integer*4 max_opt_size parameter (max_opt_size=4400) character*4400 Coptions,srcs common /strings/ Coptions,srcs real dt, dtfast, time, time2, time_start, tdays, start_time integer*4 ndtfast, iic, kstp, krhs, knew, next_kstp & , iif, nstp, nrhs, nnew, nbstep3d logical PREDICTOR_2D_STEP common /time_indices/ dt,dtfast, time, time2,time_start, tdays, & ndtfast, iic, kstp, krhs, knew, next_kstp, & start_time, & iif, nstp, nrhs, nnew, nbstep3d, & PREDICTOR_2D_STEP real time_avg, time2_avg, rho0 & , rdrg, rdrg2, Cdb_min, Cdb_max, Zobt & , xl, el, visc2, visc4, gamma2 real theta_s, theta_b, Tcline, hc real sc_w(0:N), Cs_w(0:N), sc_r(N), Cs_r(N) real rx0, rx1 real tnu2(NT),tnu4(NT) real weight(6,0:NWEIGHT) real x_sponge, v_sponge real tauT_in, tauT_out, tauM_in, tauM_out integer*4 numthreads, ntstart, ntimes, ninfo & , nfast, nrrec, nrst, nwrt & , ntsavg, navg logical ldefhis logical got_tini(NT) common /scalars_main/ & time_avg, time2_avg, rho0, rdrg, rdrg2 & , Zobt, Cdb_min, Cdb_max & , xl, el, visc2, visc4, gamma2 & , theta_s, theta_b, Tcline, hc & , sc_w, Cs_w, sc_r, Cs_r & , rx0, rx1 & , tnu2, tnu4 & , weight & , x_sponge, v_sponge & , tauT_in, tauT_out, tauM_in, tauM_out & , numthreads, ntstart, ntimes, ninfo & , nfast, nrrec, nrst, nwrt & , ntsavg, navg & , got_tini & , ldefhis logical synchro_flag common /sync_flag/ synchro_flag integer*4 may_day_flag integer*4 tile_count, first_time, bc_count common /communicators_i/ & may_day_flag, tile_count, first_time, bc_count real hmin, hmax, grdmin, grdmax, Cu_min, Cu_max common /communicators_r/ & hmin, hmax, grdmin, grdmax, Cu_min, Cu_max real lonmin, lonmax, latmin, latmax common /communicators_lonlat/ & lonmin, lonmax, latmin, latmax real*8 Cu_Adv3d, Cu_W, Cu_Nbq_X, Cu_Nbq_Y, Cu_Nbq_Z integer*4 i_cx_max, j_cx_max, k_cx_max common /diag_vars/ Cu_Adv3d, Cu_W, & i_cx_max, j_cx_max, k_cx_max real*8 volume, avgke, avgpe, avgkp, bc_crss common /communicators_rq/ & volume, avgke, avgpe, avgkp, bc_crss real*4 CPU_time(0:31,0:NPP) integer*4 proc(0:31,0:NPP),trd_count common /timers_roms/CPU_time,proc,trd_count logical EAST_INTER2, WEST_INTER2, NORTH_INTER2, SOUTH_INTER2 logical EAST_INTER, WEST_INTER, NORTH_INTER, SOUTH_INTER logical CORNER_SW,CORNER_NW,CORNER_NE,CORNER_SE integer*4 mynode, mynode2, ii,jj, p_W,p_E,p_S,p_N, p_SW,p_SE, & p_NW,p_NE,NNODES2 common /comm_setup/ mynode, mynode2, ii,jj, p_W,p_E,p_S,p_N, & p_SW,p_SE, p_NW,p_NE, EAST_INTER, WEST_INTER, NORTH_INTER, & SOUTH_INTER, EAST_INTER2, WEST_INTER2, NORTH_INTER2, & SOUTH_INTER2, & CORNER_SW,CORNER_NW,CORNER_NE,CORNER_SE,NNODES2 real pi, deg2rad, rad2deg parameter (pi=3.14159265358979323846D0, deg2rad=pi/180.D0, & rad2deg=180.D0/pi) real Eradius, Erotation, g, day2sec,sec2day, jul_off, & year2day,day2year parameter (Eradius=6371315.0D0, Erotation=7.292115090D-5, & day2sec=86400.D0, sec2day=1.D0/86400.D0, & year2day=365.25D0, day2year=1.D0/365.25D0, & jul_off=2440000.D0) parameter (g=9.81D0) real Cp parameter (Cp=3985.0D0) real vonKar parameter (vonKar=0.41D0) real spval parameter (spval=-999.0D0) logical mask_val parameter (mask_val = .true.) if (mynode.eq.0) write(stdout,'(/1x,A/)') & 'Activated C-preprocessing Options:' do is=1,max_opt_size Coptions(is:is)=' ' enddo iexample=0 is=1 iexample=iexample+1 if (mynode.eq.0) write(stdout,'(10x,A)') 'REGIONAL' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='REGIONAL' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'MOSA_CPL_exp1' ie=is +12 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='MOSA_CPL_exp1' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'MPI' ie=is + 2 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='MPI' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'OA_COUPLING' ie=is +10 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='OA_COUPLING' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'OBC_EAST' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='OBC_EAST' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'OBC_WEST' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='OBC_WEST' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'OBC_NORTH' ie=is + 8 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='OBC_NORTH' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'OBC_SOUTH' ie=is + 8 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='OBC_SOUTH' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'LOGFILE' ie=is + 6 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='LOGFILE' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'CURVGRID' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='CURVGRID' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'SPHERICAL' ie=is + 8 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='SPHERICAL' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'MASKING' ie=is + 6 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='MASKING' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'NEW_S_COORD' ie=is +10 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='NEW_S_COORD' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'SOLVE3D' ie=is + 6 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='SOLVE3D' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'UV_COR' ie=is + 5 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='UV_COR' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'UV_ADV' ie=is + 5 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='UV_ADV' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'SALINITY' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='SALINITY' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'NONLIN_EOS' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='NONLIN_EOS' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'READ_PATM' ie=is + 8 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='READ_PATM' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'OBC_PATM' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='OBC_PATM' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'FRC_BRY' ie=is + 6 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='FRC_BRY' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'Z_FRC_BRY' ie=is + 8 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='Z_FRC_BRY' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'M2_FRC_BRY' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='M2_FRC_BRY' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'M3_FRC_BRY' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='M3_FRC_BRY' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'T_FRC_BRY' ie=is + 8 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='T_FRC_BRY' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'UV_HADV_UP3' ie=is +10 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='UV_HADV_UP3' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'UV_VADV_SPLINES' ie=is +14 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='UV_VADV_SPLINES' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'TS_HADV_RSUP3' ie=is +12 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='TS_HADV_RSUP3' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'TS_DIF4' ie=is + 6 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='TS_DIF4' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'TS_VADV_SPLINES' ie=is +14 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='TS_VADV_SPLINES' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'SPONGE' ie=is + 5 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='SPONGE' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'LIMIT_BSTRESS' ie=is +12 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='LIMIT_BSTRESS' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'LMD_MIXING' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='LMD_MIXING' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'LMD_SKPP' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='LMD_SKPP' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'LMD_BKPP' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='LMD_BKPP' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'LMD_RIMIX' ie=is + 8 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='LMD_RIMIX' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'LMD_CONVEC' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='LMD_CONVEC' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'LMD_NONLOCAL' ie=is +11 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='LMD_NONLOCAL' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'ANA_BSFLUX' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='ANA_BSFLUX' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'ANA_BTFLUX' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='ANA_BTFLUX' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'OBC_M2CHARACT' ie=is +12 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='OBC_M2CHARACT' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'OBC_M3ORLANSKI' ie=is +13 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='OBC_M3ORLANSKI' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'OBC_TORLANSKI' ie=is +12 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='OBC_TORLANSKI' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'AVERAGES' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='AVERAGES' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'AVERAGES_K' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='AVERAGES_K' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'TS_HADV_C4' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='TS_HADV_C4' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'MPI_COMM_WORLD' ie=is +13 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='MPI_COMM_WORLD' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'M2FILTER_POWER' ie=is +13 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='M2FILTER_POWER' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'TRACERS' ie=is + 6 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='TRACERS' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'TEMPERATURE' ie=is +10 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='TEMPERATURE' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'HZR' ie=is + 2 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='HZR' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'VAR_RHO_2D' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='VAR_RHO_2D' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'SPLIT_EOS' ie=is + 8 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='SPLIT_EOS' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'UV_MIX_S' ie=is + 7 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='UV_MIX_S' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'DIF_COEF_3D' ie=is +10 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='DIF_COEF_3D' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'TS_MIX_ISO' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='TS_MIX_ISO' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'TS_MIX_IMP' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='TS_MIX_IMP' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'TS_MIX_ISO_FILT' ie=is +14 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='TS_MIX_ISO_FILT' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'NTRA_T3DMIX' ie=is +10 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='NTRA_T3DMIX' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'SPONGE_GRID' ie=is +10 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='SPONGE_GRID' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'SPONGE_DIF2' ie=is +10 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='SPONGE_DIF2' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'SPONGE_VIS2' ie=is +10 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='SPONGE_VIS2' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'LMD_SKPP2005' ie=is +11 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='LMD_SKPP2005' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(10x,A)') 'NF_CLOBBER' ie=is + 9 if (ie.ge.max_opt_size) goto 99 Coptions(is:ie)='NF_CLOBBER' Coptions(ie+1:ie+1)=' ' is=ie+2 if (mynode.eq.0) write(stdout,'(/)') if (iexample.eq.0) then if (mynode.eq.0) write(stdout,'(1x,A)') & 'ERROR in "cppdefs.h": no configuration is specified.' ierr=ierr+1 elseif (iexample.gt.1) then if (mynode.eq.0) write(stdout,'(1x,A)') & 'ERROR: more than one configuration in "cppdefs.h".' ierr=ierr+1 endif return 99 if (mynode.eq.0) write(stdout,'(/1x,A,A/14x,A)') & 'CHECKDEFS -- ERROR: Unsufficient size of string Coptions', & 'in file "strings.h".', 'Increase the size it and recompile.' ierr=ierr+1 return end