Changeset 11960
- Timestamp:
- 2019-11-25T18:19:39+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019
- Files:
-
- 1 deleted
- 140 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11943_MERGE_2019/cfgs/C1D_PAPA/MY_SRC/usrdef_nam.F90
r11536 r11960 61 61 !!---------------------------------------------------------------------- 62 62 ! 63 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)64 63 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 65 64 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icealb.F90
r11536 r11960 190 190 !!---------------------------------------------------------------------- 191 191 ! 192 REWIND( numnam_ice_ref ) ! Namelist namalb in reference namelist : Albedo parameters193 192 READ ( numnam_ice_ref, namalb, IOSTAT = ios, ERR = 901) 194 193 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namalb in reference namelist' ) 195 REWIND( numnam_ice_cfg ) ! Namelist namalb in configuration namelist : Albedo parameters196 194 READ ( numnam_ice_cfg, namalb, IOSTAT = ios, ERR = 902 ) 197 195 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namalb in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icedia.F90
r11536 r11960 178 178 !!---------------------------------------------------------------------- 179 179 ! 180 REWIND( numnam_ice_ref ) ! Namelist namdia in reference namelist : Parameters for ice181 180 READ ( numnam_ice_ref, namdia, IOSTAT = ios, ERR = 901) 182 181 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdia in reference namelist' ) 183 REWIND( numnam_ice_cfg ) ! Namelist namdia in configuration namelist : Parameters for ice184 182 READ ( numnam_ice_cfg, namdia, IOSTAT = ios, ERR = 902 ) 185 183 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdia in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icedyn.F90
r11949 r11960 225 225 !!------------------------------------------------------------------- 226 226 ! 227 REWIND( numnam_ice_ref ) ! Namelist namdyn in reference namelist : Ice dynamics228 227 READ ( numnam_ice_ref, namdyn, IOSTAT = ios, ERR = 901) 229 228 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn in reference namelist' ) 230 REWIND( numnam_ice_cfg ) ! Namelist namdyn in configuration namelist : Ice dynamics231 229 READ ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 ) 232 230 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icedyn_adv.F90
r11536 r11960 131 131 !!------------------------------------------------------------------- 132 132 ! 133 REWIND( numnam_ice_ref ) ! Namelist namdyn_adv in reference namelist : Ice dynamics134 133 READ ( numnam_ice_ref, namdyn_adv, IOSTAT = ios, ERR = 901) 135 134 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in reference namelist' ) 136 REWIND( numnam_ice_cfg ) ! Namelist namdyn_adv in configuration namelist : Ice dynamics137 135 READ ( numnam_ice_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 138 136 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icedyn_rdgrft.F90
r11732 r11960 908 908 !!------------------------------------------------------------------- 909 909 ! 910 REWIND( numnam_ice_ref ) ! Namelist namicetdme in reference namelist : Ice mechanical ice redistribution911 910 READ ( numnam_ice_ref, namdyn_rdgrft, IOSTAT = ios, ERR = 901) 912 911 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rdgrft in reference namelist' ) 913 REWIND( numnam_ice_cfg ) ! Namelist namdyn_rdgrft in configuration namelist : Ice mechanical ice redistribution914 912 READ ( numnam_ice_cfg, namdyn_rdgrft, IOSTAT = ios, ERR = 902 ) 915 913 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rdgrft in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icedyn_rhg.F90
r11949 r11960 112 112 !!------------------------------------------------------------------- 113 113 ! 114 REWIND( numnam_ice_ref ) ! Namelist namdyn_rhg in reference namelist : Ice dynamics115 114 READ ( numnam_ice_ref, namdyn_rhg, IOSTAT = ios, ERR = 901) 116 115 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in reference namelist' ) 117 REWIND( numnam_ice_cfg ) ! Namelist namdyn_rhg in configuration namelist : Ice dynamics118 116 READ ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 119 117 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/iceistate.F90
r11949 r11960 475 475 !!----------------------------------------------------------------------------- 476 476 ! 477 REWIND( numnam_ice_ref ) ! Namelist namini in reference namelist : Ice initial state478 477 READ ( numnam_ice_ref, namini, IOSTAT = ios, ERR = 901) 479 478 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namini in reference namelist' ) 480 REWIND( numnam_ice_cfg ) ! Namelist namini in configuration namelist : Ice initial state481 479 READ ( numnam_ice_cfg, namini, IOSTAT = ios, ERR = 902 ) 482 480 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namini in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/iceitd.F90
r11732 r11960 686 686 !!------------------------------------------------------------------ 687 687 ! 688 REWIND( numnam_ice_ref ) ! Namelist namitd in reference namelist : Parameters for ice689 688 READ ( numnam_ice_ref, namitd, IOSTAT = ios, ERR = 901) 690 689 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namitd in reference namelist' ) 691 REWIND( numnam_ice_cfg ) ! Namelist namitd in configuration namelist : Parameters for ice692 690 READ ( numnam_ice_cfg, namitd, IOSTAT = ios, ERR = 902 ) 693 691 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namitd in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icesbc.F90
r11575 r11960 284 284 !!------------------------------------------------------------------- 285 285 ! 286 REWIND( numnam_ice_ref ) ! Namelist namsbc in reference namelist : Ice dynamics287 286 READ ( numnam_ice_ref, namsbc, IOSTAT = ios, ERR = 901) 288 287 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist' ) 289 REWIND( numnam_ice_cfg ) ! Namelist namsbc in configuration namelist : Ice dynamics290 288 READ ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 291 289 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icestp.F90
r11949 r11960 235 235 IF(lwp) WRITE(numout,*) '~~~~~~~~' 236 236 ! 237 ! ! Open the reference and configuration namelist files andnamelist output file238 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp)239 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp)240 IF(lwm) CALL ctl_opn( numoni , 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )237 ! ! Load the reference and configuration namelist files and open namelist output file 238 CALL load_nml( numnam_ice_ref, 'namelist_ice_ref', numout, lwm ) 239 CALL load_nml( numnam_ice_cfg, 'namelist_ice_cfg', numout, lwm ) 240 IF(lwm) CALL ctl_opn( numoni , 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 241 241 ! 242 242 CALL par_init ! set some ice run parameters … … 304 304 !!------------------------------------------------------------------- 305 305 ! 306 REWIND( numnam_ice_ref ) ! Namelist nampar in reference namelist : Parameters for ice307 306 READ ( numnam_ice_ref, nampar, IOSTAT = ios, ERR = 901) 308 307 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampar in reference namelist' ) 309 REWIND( numnam_ice_cfg ) ! Namelist nampar in configuration namelist : Parameters for ice310 308 READ ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 ) 311 309 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampar in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icethd.F90
r11536 r11960 539 539 !!------------------------------------------------------------------- 540 540 ! 541 REWIND( numnam_ice_ref ) ! Namelist namthd in reference namelist : Ice thermodynamics542 541 READ ( numnam_ice_ref, namthd, IOSTAT = ios, ERR = 901) 543 542 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd in reference namelist' ) 544 REWIND( numnam_ice_cfg ) ! Namelist namthd in configuration namelist : Ice thermodynamics545 543 READ ( numnam_ice_cfg, namthd, IOSTAT = ios, ERR = 902 ) 546 544 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icethd_da.F90
r11536 r11960 177 177 !!------------------------------------------------------------------- 178 178 ! 179 REWIND( numnam_ice_ref ) ! Namelist namthd_da in reference namelist : Ice thermodynamics180 179 READ ( numnam_ice_ref, namthd_da, IOSTAT = ios, ERR = 901) 181 180 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_da in reference namelist' ) 182 REWIND( numnam_ice_cfg ) ! Namelist namthd_da in configuration namelist : Ice thermodynamics183 181 READ ( numnam_ice_cfg, namthd_da, IOSTAT = ios, ERR = 902 ) 184 182 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_da in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icethd_do.F90
r11536 r11960 443 443 !!------------------------------------------------------------------- 444 444 ! 445 REWIND( numnam_ice_ref ) ! Namelist namthd_do in reference namelist : Ice thermodynamics446 445 READ ( numnam_ice_ref, namthd_do, IOSTAT = ios, ERR = 901) 447 446 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_do in reference namelist' ) 448 REWIND( numnam_ice_cfg ) ! Namelist namthd_do in configuration namelist : Ice thermodynamics449 447 READ ( numnam_ice_cfg, namthd_do, IOSTAT = ios, ERR = 902 ) 450 448 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_do in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icethd_pnd.F90
r11536 r11960 208 208 !!------------------------------------------------------------------- 209 209 ! 210 REWIND( numnam_ice_ref ) ! Namelist namthd_pnd in reference namelist : Melt Ponds211 210 READ ( numnam_ice_ref, namthd_pnd, IOSTAT = ios, ERR = 901) 212 211 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_pnd in reference namelist' ) 213 REWIND( numnam_ice_cfg ) ! Namelist namthd_pnd in configuration namelist : Melt Ponds214 212 READ ( numnam_ice_cfg, namthd_pnd, IOSTAT = ios, ERR = 902 ) 215 213 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_pnd in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icethd_sal.F90
r11536 r11960 132 132 !!------------------------------------------------------------------- 133 133 ! 134 REWIND( numnam_ice_ref ) ! Namelist namthd_sal in reference namelist : Ice salinity135 134 READ ( numnam_ice_ref, namthd_sal, IOSTAT = ios, ERR = 901) 136 135 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_sal in reference namelist' ) 137 REWIND( numnam_ice_cfg ) ! Namelist namthd_sal in configuration namelist : Ice salinity138 136 READ ( numnam_ice_cfg, namthd_sal, IOSTAT = ios, ERR = 902 ) 139 137 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_sal in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/ICE/icethd_zdf.F90
r11536 r11960 88 88 !!------------------------------------------------------------------- 89 89 ! 90 REWIND( numnam_ice_ref ) ! Namelist namthd_zdf in reference namelist : Ice thermodynamics91 90 READ ( numnam_ice_ref, namthd_zdf, IOSTAT = ios, ERR = 901) 92 91 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_zdf in reference namelist' ) 93 REWIND( numnam_ice_cfg ) ! Namelist namthd_zdf in configuration namelist : Ice thermodynamics94 92 READ ( numnam_ice_cfg, namthd_zdf, IOSTAT = ios, ERR = 902 ) 95 93 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_zdf in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/NST/agrif_user.F90
r11949 r11960 709 709 !!-------------------------------------------------------------------------------------- 710 710 ! 711 REWIND( numnam_ref ) ! Namelist namagrif in reference namelist : AGRIF zoom712 711 READ ( numnam_ref, namagrif, IOSTAT = ios, ERR = 901) 713 712 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in reference namelist' ) 714 REWIND( numnam_cfg ) ! Namelist namagrif in configuration namelist : AGRIF zoom715 713 READ ( numnam_cfg, namagrif, IOSTAT = ios, ERR = 902 ) 716 714 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namagrif in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ASM/asminc.F90
r11949 r11960 147 147 ln_temnofreeze = .FALSE. 148 148 149 REWIND( numnam_ref ) ! Namelist nam_asminc in reference namelist : Assimilation increment150 149 READ ( numnam_ref, nam_asminc, IOSTAT = ios, ERR = 901) 151 150 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in reference namelist' ) 152 REWIND( numnam_cfg ) ! Namelist nam_asminc in configuration namelist : Assimilation increment153 151 READ ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 154 152 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/BDY/bdydta.F90
r11949 r11960 373 373 INTEGER :: ierror, ios ! 374 374 ! 375 INTEGER :: nbdy_rdstart, nbdy_loc 376 CHARACTER(LEN=50) :: cerrmsg ! error string 375 377 CHARACTER(len=3) :: cl3 ! 376 378 CHARACTER(len=100) :: cn_dir ! Root directory for location of data files … … 415 417 ! Read namelists 416 418 ! -------------- 417 REWIND(numnam_cfg)419 nbdy_rdstart = 1 418 420 DO jbdy = 1, nb_bdy 419 421 … … 421 423 WRITE(ctmp2, '(a,i2)') 'block nambdy_dta number ', jbdy 422 424 423 ! There is only one nambdy_dta block in namelist_ref -> use it for each bdy so we do a rewind 424 REWIND(numnam_ref) 425 ! There is only one nambdy_dta block in namelist_ref -> use it for each bdy so we read from the beginning 425 426 READ ( numnam_ref, nambdy_dta, IOSTAT = ios, ERR = 901) 426 427 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in reference namelist' ) … … 431 432 & .OR. ( dta_bdy(jbdy)%lneed_tra .AND. nn_tra_dta(jbdy) == 1 ) & 432 433 & .OR. ( dta_bdy(jbdy)%lneed_ice .AND. nn_ice_dta(jbdy) == 1 ) ) THEN 433 ! WARNING: we don't do a rewind here, each bdy reads its own nambdy_dta block one after another 434 READ ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 434 ! 435 ! Need to support possibility of reading more than one 436 ! nambdy_dta from the namelist_cfg internal file. 437 ! Do this by finding the jbdy'th occurence of nambdy_dta in the 438 ! character buffer as the starting point. 439 ! 440 nbdy_loc = INDEX( numnam_cfg( nbdy_rdstart: ), 'nambdy_dta' ) 441 IF( nbdy_loc .GT. 0 ) THEN 442 nbdy_rdstart = nbdy_rdstart + nbdy_loc 443 ELSE 444 WRITE(cerrmsg,'(A,I4,A)') 'Error: entry number ',jbdy,' of nambdy_dta not found' 445 ios = -1 446 CALL ctl_nam ( ios , cerrmsg ) 447 ENDIF 448 READ ( numnam_cfg( MAX( 1, nbdy_rdstart - 2 ): ), nambdy_dta, IOSTAT = ios, ERR = 902) 435 449 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist' ) 436 450 IF(lwm) WRITE( numond, nambdy_dta ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/BDY/bdyini.F90
r11536 r11960 75 75 ! Read namelist parameters 76 76 ! ------------------------ 77 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist :Unstructured open boundaries78 77 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 79 78 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist' ) … … 93 92 cn_ice (2:jp_bdy) = cn_ice (1) 94 93 nn_ice_dta (2:jp_bdy) = nn_ice_dta (1) 95 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist :Unstructured open boundaries96 94 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 97 95 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist' ) … … 364 362 ! ------------------------------------------------- 365 363 366 REWIND( numnam_cfg )367 364 nblendta(:,:) = 0 368 365 nbdysege = 0 … … 1079 1076 INTEGER :: ios ! Local integer output status for namelist read 1080 1077 INTEGER :: nbdyind, nbdybeg, nbdyend 1078 INTEGER :: nbdy_count, nbdy_rdstart, nbdy_loc 1081 1079 CHARACTER(LEN=1) :: ctypebdy ! - - 1080 CHARACTER(LEN=50):: cerrmsg ! - - 1082 1081 NAMELIST/nambdy_index/ ctypebdy, nbdyind, nbdybeg, nbdyend 1083 1082 !!---------------------------------------------------------------------- 1084 1085 ! No REWIND here because may need to read more than one nambdy_index namelist. 1086 ! Read only namelist_cfg to avoid unseccessfull overwrite 1087 ! keep full control of the configuration namelist 1088 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 1083 ! Need to support possibility of reading more than one nambdy_index from 1084 ! the namelist_cfg internal file. 1085 ! Do this by finding the kb_bdy'th occurence of nambdy_index in the 1086 ! character buffer as the starting point. 1087 nbdy_rdstart = 1 1088 DO nbdy_count = 1, kb_bdy 1089 nbdy_loc = INDEX( numnam_cfg( nbdy_rdstart: ), 'nambdy_index' ) 1090 IF( nbdy_loc .GT. 0 ) THEN 1091 nbdy_rdstart = nbdy_rdstart + nbdy_loc 1092 ELSE 1093 WRITE(cerrmsg,'(A,I4,A)') 'Error: entry number ',kb_bdy,' of nambdy_index not found' 1094 ios = -1 1095 CALL ctl_nam ( ios , cerrmsg ) 1096 ENDIF 1097 END DO 1098 nbdy_rdstart = MAX( 1, nbdy_rdstart - 2 ) 1099 READ ( numnam_cfg( nbdy_rdstart: ), nambdy_index, IOSTAT = ios, ERR = 904) 1089 1100 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist' ) 1090 1101 IF(lwm) WRITE ( numond, nambdy_index ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/BDY/bdytides.F90
r11536 r11960 71 71 INTEGER, DIMENSION(3) :: ilen0 !: length of boundary data (from OBC arrays) 72 72 INTEGER :: ios ! Local integer output status for namelist read 73 INTEGER :: nbdy_rdstart, nbdy_loc 74 CHARACTER(LEN=50) :: cerrmsg !: error string 73 75 CHARACTER(len=80) :: clfile !: full file name for tidal input file 74 76 REAL(wp),ALLOCATABLE, DIMENSION(:,:,:) :: dta_read !: work space to read in tidal harmonics data … … 84 86 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~' 85 87 86 REWIND(numnam_cfg) 87 88 89 nbdy_rdstart = 1 88 90 DO ib_bdy = 1, nb_bdy 89 91 IF( nn_dyn2d_dta(ib_bdy) >= 2 ) THEN … … 94 96 filtide(:) = '' 95 97 96 REWIND( numnam_ref )97 98 READ ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901) 98 99 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist' ) 99 ! Don't REWIND here - may need to read more than one of these namelists. 100 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 100 ! 101 ! Need to support possibility of reading more than one 102 ! nambdy_tide from the namelist_cfg internal file. 103 ! Do this by finding the ib_bdy'th occurence of nambdy_tide in the 104 ! character buffer as the starting point. 105 ! 106 nbdy_loc = INDEX( numnam_cfg( nbdy_rdstart: ), 'nambdy_tide' ) 107 IF( nbdy_loc .GT. 0 ) THEN 108 nbdy_rdstart = nbdy_rdstart + nbdy_loc 109 ELSE 110 WRITE(cerrmsg,'(A,I4,A)') 'Error: entry number ',ib_bdy,' of nambdy_tide not found' 111 ios = -1 112 CALL ctl_nam ( ios , cerrmsg ) 113 ENDIF 114 READ ( numnam_cfg( MAX( 1, nbdy_rdstart - 2 ): ), nambdy_tide, IOSTAT = ios, ERR = 902) 101 115 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist' ) 102 116 IF(lwm) WRITE ( numond, nambdy_tide ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/C1D/c1d.F90
r11536 r11960 50 50 !!---------------------------------------------------------------------- 51 51 ! 52 REWIND( numnam_ref ) ! Namelist namc1d in reference namelist : Tracer advection scheme53 52 READ ( numnam_ref, namc1d, IOSTAT = ios, ERR = 901) 54 53 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in reference namelist' ) 55 54 ! 56 REWIND( numnam_cfg ) ! Namelist namtra_adv in configuration namelist : Tracer advection scheme57 55 READ ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 58 56 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/C1D/dtauvd.F90
r11949 r11960 60 60 ierr0 = 0 ; ierr1 = 0 ; ierr2 = 0 ; ierr3 = 0 61 61 62 REWIND( numnam_ref ) ! Namelist namc1d_uvd in reference namelist :63 62 READ ( numnam_ref, namc1d_uvd, IOSTAT = ios, ERR = 901) 64 63 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_uvd in reference namelist' ) 65 64 ! 66 REWIND( numnam_cfg ) ! Namelist namc1d_uvd in configuration namelist : Parameters of the run67 65 READ ( numnam_cfg, namc1d_uvd, IOSTAT = ios, ERR = 902 ) 68 66 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc1d_uvd in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/C1D/dyndmp.F90
r11949 r11960 79 79 !!---------------------------------------------------------------------- 80 80 ! 81 REWIND( numnam_ref ) ! Namelist namc1d_dyndmp in reference namelist :82 81 READ ( numnam_ref, namc1d_dyndmp, IOSTAT = ios, ERR = 901) 83 82 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_dyndmp in reference namelist' ) 84 REWIND( numnam_cfg ) ! Namelist namc1d_dyndmp in configuration namelist : Parameters of the run85 83 READ ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 ) 86 84 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc1d_dyndmp in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/CRS/crsini.F90
r11949 r11960 82 82 !--------------------------------------------------------- 83 83 ! 84 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run85 84 READ ( numnam_ref, namcrs, IOSTAT = ios, ERR = 901) 86 85 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in reference namelist' ) 87 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run88 86 READ ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 89 87 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/dia25h.F90
r11949 r11960 55 55 !!---------------------------------------------------------------------- 56 56 ! 57 REWIND ( numnam_ref ) ! Read Namelist nam_dia25h in reference namelist : 25hour mean diagnostics58 57 READ ( numnam_ref, nam_dia25h, IOSTAT=ios, ERR= 901 ) 59 58 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_dia25h in reference namelist' ) 60 REWIND( numnam_cfg ) ! Namelist nam_dia25h in configuration namelist 25hour diagnostics61 59 READ ( numnam_cfg, nam_dia25h, IOSTAT = ios, ERR = 902 ) 62 60 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_dia25h in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diadct.F90
r11949 r11960 123 123 !!--------------------------------------------------------------------- 124 124 125 REWIND( numnam_ref ) ! Namelist nam_diadct in reference namelist : Diagnostic: transport through sections126 125 READ ( numnam_ref, nam_diadct, IOSTAT = ios, ERR = 901) 127 126 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diadct in reference namelist' ) 128 127 129 REWIND( numnam_cfg ) ! Namelist nam_diadct in configuration namelist : Diagnostic: transport through sections130 128 READ ( numnam_cfg, nam_diadct, IOSTAT = ios, ERR = 902 ) 131 129 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diadct in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diaharm.F90
r11949 r11960 79 79 ENDIF 80 80 ! 81 REWIND( numnam_ref ) ! Namelist nam_diaharm in reference namelist : Tidal harmonic analysis82 81 READ ( numnam_ref, nam_diaharm, IOSTAT = ios, ERR = 901) 83 82 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in reference namelist' ) 84 REWIND( numnam_cfg ) ! Namelist nam_diaharm in configuration namelist : Tidal harmonic analysis85 83 READ ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 86 84 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diahsb.F90
r11949 r11960 364 364 WRITE(numout,*) '~~~~~~~~~~~~ ' 365 365 ENDIF 366 REWIND( numnam_ref ) ! Namelist namhsb in reference namelist367 366 READ ( numnam_ref, namhsb, IOSTAT = ios, ERR = 901) 368 367 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in reference namelist' ) 369 REWIND( numnam_cfg ) ! Namelist namhsb in configuration namelist370 368 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 371 369 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diaptr.F90
r11949 r11960 392 392 !!---------------------------------------------------------------------- 393 393 394 REWIND( numnam_ref ) ! Namelist namptr in reference namelist : Poleward transport395 394 READ ( numnam_ref, namptr, IOSTAT = ios, ERR = 901) 396 395 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in reference namelist' ) 397 396 398 REWIND( numnam_cfg ) ! Namelist namptr in configuration namelist : Poleward transport399 397 READ ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 400 398 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diatmb.F90
r11949 r11960 41 41 !!---------------------------------------------------------------------- 42 42 ! 43 REWIND( numnam_ref ) ! Read Namelist nam_diatmb in reference namelist : TMB diagnostics44 43 READ ( numnam_ref, nam_diatmb, IOSTAT=ios, ERR= 901 ) 45 44 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diatmb in reference namelist' ) 46 45 47 REWIND( numnam_cfg ) ! Namelist nam_diatmb in configuration namelist TMB diagnostics48 46 READ ( numnam_cfg, nam_diatmb, IOSTAT = ios, ERR = 902 ) 49 47 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_diatmb in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIU/diu_bulk.F90
r11949 r11960 52 52 53 53 ! Read the namelist 54 REWIND( numnam_ref )55 54 READ ( numnam_ref, namdiu, IOSTAT = ios, ERR = 901 ) 56 55 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdiu in reference namelist' ) 57 REWIND( numnam_cfg )58 56 READ ( numnam_cfg, namdiu, IOSTAT = ios, ERR = 902 ) 59 57 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdiu in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/domain.F90
r11949 r11960 308 308 ! 309 309 ! 310 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run311 310 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 312 311 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist' ) 313 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run314 312 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 315 313 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist' ) … … 406 404 #endif 407 405 408 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep)409 406 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 410 407 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist' ) 411 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep)412 408 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 413 409 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist' ) … … 438 434 #if defined key_netcdf4 439 435 ! ! NetCDF 4 case ("key_netcdf4" defined) 440 REWIND( numnam_ref ) ! Namelist namnc4 in reference namelist : NETCDF441 436 READ ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 442 437 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist' ) 443 REWIND( numnam_cfg ) ! Namelist namnc4 in configuration namelist : NETCDF444 438 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 445 439 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/dommsk.F90
r11536 r11960 103 103 !!--------------------------------------------------------------------- 104 104 ! 105 REWIND( numnam_ref ) ! Namelist namlbc in reference namelist : Lateral momentum boundary condition106 105 READ ( numnam_ref, namlbc, IOSTAT = ios, ERR = 901 ) 107 106 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in reference namelist' ) 108 REWIND( numnam_cfg ) ! Namelist namlbc in configuration namelist : Lateral momentum boundary condition109 107 READ ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 110 108 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist' ) … … 148 146 149 147 ! Mask corrections for bdy (read in mppini2) 150 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist :Unstructured open boundaries151 148 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 903) 152 149 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist' ) 153 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist :Unstructured open boundaries154 150 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 904 ) 155 151 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/domvvl.F90
r11949 r11960 987 987 !!---------------------------------------------------------------------- 988 988 ! 989 REWIND( numnam_ref ) ! Namelist nam_vvl in reference namelist :990 989 READ ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 991 990 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist' ) 992 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run993 991 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 994 992 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/dtatsd.F90
r11536 r11960 65 65 ierr0 = 0 ; ierr1 = 0 ; ierr2 = 0 ; ierr3 = 0 66 66 ! 67 REWIND( numnam_ref ) ! Namelist namtsd in reference namelist :68 67 READ ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 69 68 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in reference namelist' ) 70 REWIND( numnam_cfg ) ! Namelist namtsd in configuration namelist : Parameters of the run71 69 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 72 70 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/iscplini.F90
r11536 r11960 62 62 nn_fiscpl = 0 63 63 ln_hsb = .FALSE. 64 REWIND( numnam_ref ) ! Namelist namsbc_iscpl in reference namelist : Ice sheet coupling65 64 READ ( numnam_ref, namsbc_iscpl, IOSTAT = ios, ERR = 901) 66 65 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iscpl in reference namelist' ) 67 REWIND( numnam_cfg ) ! Namelist namsbc_iscpl in configuration namelist : Ice Sheet coupling68 66 READ ( numnam_cfg, namsbc_iscpl, IOSTAT = ios, ERR = 902 ) 69 67 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_iscpl in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DYN/dynadv.F90
r11949 r11960 106 106 ENDIF 107 107 ! 108 REWIND( numnam_ref ) ! Namelist namdyn_adv in reference namelist : Momentum advection scheme109 108 READ ( numnam_ref, namdyn_adv, IOSTAT = ios, ERR = 901) 110 109 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in reference namelist' ) 111 REWIND( numnam_cfg ) ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme112 110 READ ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 113 111 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DYN/dynhpg.F90
r11949 r11960 155 155 !!---------------------------------------------------------------------- 156 156 ! 157 REWIND( numnam_ref ) ! Namelist namdyn_hpg in reference namelist : Hydrostatic pressure gradient158 157 READ ( numnam_ref, namdyn_hpg, IOSTAT = ios, ERR = 901) 159 158 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in reference namelist' ) 160 159 ! 161 REWIND( numnam_cfg ) ! Namelist namdyn_hpg in configuration namelist : Hydrostatic pressure gradient162 160 READ ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 163 161 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DYN/dynspg.F90
r11949 r11960 203 203 ENDIF 204 204 ! 205 REWIND( numnam_ref ) ! Namelist namdyn_spg in reference namelist : Free surface206 205 READ ( numnam_ref, namdyn_spg, IOSTAT = ios, ERR = 901) 207 206 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_spg in reference namelist' ) 208 207 ! 209 REWIND( numnam_cfg ) ! Namelist namdyn_spg in configuration namelist : Free surface210 208 READ ( numnam_cfg, namdyn_spg, IOSTAT = ios, ERR = 902 ) 211 209 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_spg in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DYN/dynvor.F90
r11949 r11960 856 856 ENDIF 857 857 ! 858 REWIND( numnam_ref ) ! Namelist namdyn_vor in reference namelist : Vorticity scheme options859 858 READ ( numnam_ref, namdyn_vor, IOSTAT = ios, ERR = 901) 860 859 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in reference namelist' ) 861 REWIND( numnam_cfg ) ! Namelist namdyn_vor in configuration namelist : Vorticity scheme options862 860 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 863 861 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DYN/wet_dry.F90
r11949 r11960 79 79 !!---------------------------------------------------------------------- 80 80 ! 81 REWIND( numnam_ref ) ! Namelist namwad in reference namelist : Parameters for Wetting/Drying82 81 READ ( numnam_ref, namwad, IOSTAT = ios, ERR = 905) 83 82 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namwad in reference namelist' ) 84 REWIND( numnam_cfg ) ! Namelist namwad in configuration namelist : Parameters for Wetting/Drying85 83 READ ( numnam_cfg, namwad, IOSTAT = ios, ERR = 906) 86 84 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namwad in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/FLO/floats.F90
r11949 r11960 89 89 IF(lwp) WRITE(numout,*) '~~~~~~~' 90 90 91 REWIND( numnam_ref ) ! Namelist namflo in reference namelist : Floats92 91 READ ( numnam_ref, namflo, IOSTAT = ios, ERR = 901) 93 92 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namflo in reference namelist' ) 94 93 95 REWIND( numnam_cfg ) ! Namelist namflo in configuration namelist : Floats96 94 READ ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 97 95 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namflo in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ICB/icbini.F90
r11536 r11960 404 404 #endif 405 405 ! !== read namelist ==! 406 REWIND( numnam_ref ) ! Namelist namberg in reference namelist : Iceberg parameters407 406 READ ( numnam_ref, namberg, IOSTAT = ios, ERR = 901) 408 407 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in reference namelist' ) 409 REWIND( numnam_cfg ) ! Namelist namberg in configuration namelist : Iceberg parameters410 408 READ ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 411 409 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/IOM/in_out_manager.F90
r11536 r11960 139 139 INTEGER :: numnul = -1 !: logical unit for /dev/null 140 140 ! ! early output can be collected; do not change 141 INTEGER :: numnam_ref = -1 !: logical unit for reference namelist142 INTEGER :: numnam_cfg = -1 !: logical unit for configuration specific namelist143 141 INTEGER :: numond = -1 !: logical unit for Output Namelist Dynamics 144 INTEGER :: numnam_ice_ref = -1 !: logical unit for ice reference namelist145 INTEGER :: numnam_ice_cfg = -1 !: logical unit for ice reference namelist146 142 INTEGER :: numoni = -1 !: logical unit for Output Namelist Ice 147 143 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 148 144 INTEGER :: numrun = -1 !: logical unit for run statistics 149 145 INTEGER :: numdct_in = -1 !: logical unit for transports computing 150 INTEGER :: numdct_vol = -1 !: logical unit for vo ulume transports output151 INTEGER :: numdct_heat = -1 !: logical unit for heat 152 INTEGER :: numdct_salt = -1 !: logical unit for salt 146 INTEGER :: numdct_vol = -1 !: logical unit for volume transports output 147 INTEGER :: numdct_heat = -1 !: logical unit for heat transports output 148 INTEGER :: numdct_salt = -1 !: logical unit for salt transports output 153 149 INTEGER :: numfl = -1 !: logical unit for floats ascii output 154 150 INTEGER :: numflo = -1 !: logical unit for floats ascii output 151 ! 152 CHARACTER(LEN=:), ALLOCATABLE :: numnam_ref !: character buffer for reference namelist 153 CHARACTER(LEN=:), ALLOCATABLE :: numnam_cfg !: character buffer for configuration specific namelist 154 CHARACTER(LEN=:), ALLOCATABLE :: numnam_ice_ref !: character buffer for ice reference namelist 155 CHARACTER(LEN=:), ALLOCATABLE :: numnam_ice_cfg !: character buffer for ice configuration specific namelist 155 156 156 157 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/LBC/lib_mpp.F90
r11949 r11960 32 32 !! ctl_opn : Open file and check if required file is available. 33 33 !! ctl_nam : Prints informations when an error occurs while reading a namelist 34 !! load_nml : Read, condense and buffer namelist file into character array for use as an internal file 34 35 !!---------------------------------------------------------------------- 35 36 !!---------------------------------------------------------------------- … … 50 51 !! mpp_ini_north : initialisation of north fold 51 52 !! mpp_lbc_north_icb : alternative to mpp_nfd for extra outer halo with icebergs 53 !! mpp_bcast_nml : broadcast/receive namelist character buffer from reading process to all others 52 54 !!---------------------------------------------------------------------- 53 55 USE dom_oce ! ocean space and time domain … … 57 59 PRIVATE 58 60 ! 59 PUBLIC ctl_stop, ctl_warn, ctl_opn, ctl_nam 61 PUBLIC ctl_stop, ctl_warn, ctl_opn, ctl_nam, load_nml 60 62 PUBLIC mpp_start, mppstop, mppsync, mpp_comm_free 61 63 PUBLIC mpp_ini_north … … 66 68 PUBLIC mppsend, mpprecv ! needed by TAM and ICB routines 67 69 PUBLIC mpp_report 70 PUBLIC mpp_bcast_nml 68 71 PUBLIC tic_tac 69 72 #if ! defined key_mpp_mpi … … 498 501 #endif 499 502 END SUBROUTINE mpp_delay_rcv 503 504 SUBROUTINE mpp_bcast_nml( cdnambuff , kleng ) 505 CHARACTER(LEN=:) , ALLOCATABLE, INTENT(INOUT) :: cdnambuff 506 INTEGER , INTENT(INOUT) :: kleng 507 !!---------------------------------------------------------------------- 508 !! *** routine mpp_bcast_nml *** 509 !! 510 !! ** Purpose : broadcast namelist character buffer 511 !! 512 !!---------------------------------------------------------------------- 513 !! 514 INTEGER :: iflag 515 !!---------------------------------------------------------------------- 516 ! 517 #if defined key_mpp_mpi 518 call MPI_BCAST(kleng, 1, MPI_INT, 0, mpi_comm_oce, iflag) 519 call MPI_BARRIER(mpi_comm_oce, iflag) 520 !$AGRIF_DO_NOT_TREAT 521 IF ( .NOT. ALLOCATED(cdnambuff) ) ALLOCATE( CHARACTER(LEN=kleng) :: cdnambuff ) 522 !$AGRIF_END_DO_NOT_TREAT 523 call MPI_BCAST(cdnambuff, kleng, MPI_CHARACTER, 0, mpi_comm_oce, iflag) 524 call MPI_BARRIER(mpi_comm_oce, iflag) 525 #endif 526 ! 527 END SUBROUTINE mpp_bcast_nml 500 528 501 529 … … 1066 1094 1067 1095 !!---------------------------------------------------------------------- 1068 !! ctl_stop, ctl_warn, get_unit, ctl_opn, ctl_nam routines1096 !! ctl_stop, ctl_warn, get_unit, ctl_opn, ctl_nam, load_nml routines 1069 1097 !!---------------------------------------------------------------------- 1070 1098 … … 1277 1305 END FUNCTION get_unit 1278 1306 1307 SUBROUTINE load_nml( cdnambuff , cdnamfile, kout, ldwp) 1308 CHARACTER(LEN=:) , ALLOCATABLE, INTENT(INOUT) :: cdnambuff 1309 CHARACTER(LEN=*), INTENT(IN ) :: cdnamfile 1310 CHARACTER(LEN=256) :: chline 1311 INTEGER, INTENT(IN) :: kout 1312 LOGICAL, INTENT(IN) :: ldwp !: .true. only for the root broadcaster 1313 INTEGER :: itot, iun, iltc, inl, ios, itotsav 1314 ! 1315 ! Check if the namelist buffer has already been allocated. Return if it has. 1316 ! 1317 IF ( ALLOCATED( cdnambuff ) ) RETURN 1318 IF( ldwp ) THEN 1319 ! 1320 ! Open namelist file 1321 ! 1322 CALL ctl_opn( iun, cdnamfile, 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, kout, ldwp ) 1323 ! 1324 ! First pass: count characters excluding comments and trimable white space 1325 ! 1326 itot=0 1327 10 READ(iun,'(A256)',END=20,ERR=20) chline 1328 iltc = LEN_TRIM(chline) 1329 IF ( iltc.GT.0 ) THEN 1330 inl = INDEX(chline, '!') 1331 IF( inl.eq.0 ) THEN 1332 itot = itot + iltc + 1 ! +1 for the newline character 1333 ELSEIF( inl.GT.0 .AND. LEN_TRIM( chline(1:inl-1) ).GT.0 ) THEN 1334 itot = itot + inl ! includes +1 for the newline character 1335 ENDIF 1336 ENDIF 1337 GOTO 10 1338 20 CONTINUE 1339 ! 1340 ! Allocate text cdnambuff for condensed namelist 1341 ! 1342 !$AGRIF_DO_NOT_TREAT 1343 ALLOCATE( CHARACTER(LEN=itot) :: cdnambuff ) 1344 !$AGRIF_END_DO_NOT_TREAT 1345 itotsav = itot 1346 ! 1347 ! Second pass: read and transfer pruned characters into cdnambuff 1348 ! 1349 REWIND(iun) 1350 itot=1 1351 30 READ(iun,'(A256)',END=40,ERR=40) chline 1352 iltc = LEN_TRIM(chline) 1353 IF ( iltc.GT.0 ) THEN 1354 inl = INDEX(chline, '!') 1355 IF( inl.eq.0 ) THEN 1356 inl = iltc 1357 ELSE 1358 inl = inl - 1 1359 ENDIF 1360 IF( inl.GT.0 .AND. LEN_TRIM( chline(1:inl) ).GT.0 ) THEN 1361 cdnambuff(itot:itot+inl-1) = chline(1:inl) 1362 WRITE( cdnambuff(itot+inl:itot+inl), '(a)' ) NEW_LINE('A') 1363 itot = itot + inl + 1 1364 ENDIF 1365 ENDIF 1366 GOTO 30 1367 40 CONTINUE 1368 itot = itot - 1 1369 IF( itotsav .NE. itot ) WRITE(*,*) 'WARNING in load_nml. Allocated ',itotsav,' for read buffer; but used ',itot 1370 ! 1371 ! Close namelist file 1372 ! 1373 CLOSE(iun) 1374 !write(*,'(32A)') cdnambuff 1375 ENDIF 1376 #if defined key_mpp_mpi 1377 CALL mpp_bcast_nml( cdnambuff, itot ) 1378 #endif 1379 END SUBROUTINE load_nml 1380 1381 1279 1382 !!---------------------------------------------------------------------- 1280 1383 END MODULE lib_mpp -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/LBC/mppini.F90
r11640 r11960 176 176 ! ----------------------------------- 177 177 ! 178 REWIND( numnam_ref ) ! Namelist nammpp in reference namelist179 178 READ ( numnam_ref, nammpp, IOSTAT = ios, ERR = 901 ) 180 179 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in reference namelist' ) 181 REWIND( numnam_cfg ) ! Namelist nammpp in confguration namelist182 180 READ ( numnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 183 181 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist' ) … … 197 195 198 196 ! do we need to take into account bdy_msk? 199 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist : BDY200 197 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 903) 201 198 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist (mppini)' ) 202 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist : BDY203 199 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 904 ) 204 200 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist (mppini)' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/LDF/ldfdyn.F90
r11949 r11960 115 115 !!---------------------------------------------------------------------- 116 116 ! 117 REWIND( numnam_ref ) ! Namelist namdyn_ldf in reference namelist : Lateral physics118 117 READ ( numnam_ref, namdyn_ldf, IOSTAT = ios, ERR = 901) 119 118 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in reference namelist' ) 120 119 121 REWIND( numnam_cfg ) ! Namelist namdyn_ldf in configuration namelist : Lateral physics122 120 READ ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 123 121 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/LDF/ldftra.F90
r11949 r11960 152 152 ! ================================= 153 153 ! 154 REWIND( numnam_ref ) ! Namelist namtra_ldf in reference namelist : Lateral physics on tracers155 154 READ ( numnam_ref, namtra_ldf, IOSTAT = ios, ERR = 901) 156 155 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in reference namelist' ) 157 REWIND( numnam_cfg ) ! Namelist namtra_ldf in configuration namelist : Lateral physics on tracers158 156 READ ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 159 157 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist' ) … … 511 509 ENDIF 512 510 ! 513 REWIND( numnam_ref ) ! Namelist namtra_eiv in reference namelist : eddy induced velocity param.514 511 READ ( numnam_ref, namtra_eiv, IOSTAT = ios, ERR = 901) 515 512 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_eiv in reference namelist' ) 516 513 ! 517 REWIND( numnam_cfg ) ! Namelist namtra_eiv in configuration namelist : eddy induced velocity param.518 514 READ ( numnam_cfg, namtra_eiv, IOSTAT = ios, ERR = 902 ) 519 515 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_eiv in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/OBS/diaobs.F90
r11949 r11960 202 202 203 203 ! Read namelist namobs : control observation diagnostics 204 REWIND( numnam_ref ) ! Namelist namobs in reference namelist205 204 READ ( numnam_ref, namobs, IOSTAT = ios, ERR = 901) 206 205 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobs in reference namelist' ) 207 REWIND( numnam_cfg ) ! Namelist namobs in configuration namelist208 206 READ ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 209 207 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namobs in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcapr.F90
r11536 r11960 69 69 NAMELIST/namsbc_apr/ cn_dir, sn_apr, ln_ref_apr, rn_pref, ln_apr_obc 70 70 !!---------------------------------------------------------------------- 71 REWIND( numnam_ref ) ! Namelist namsbc_apr in reference namelist : File for atmospheric pressure forcing72 71 READ ( numnam_ref, namsbc_apr, IOSTAT = ios, ERR = 901) 73 72 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in reference namelist' ) 74 73 75 REWIND( numnam_cfg ) ! Namelist namsbc_apr in configuration namelist : File for atmospheric pressure forcing76 74 READ ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 77 75 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcblk.F90
r11536 r11960 180 180 ! 181 181 ! !** read bulk namelist 182 REWIND( numnam_ref ) !* Namelist namsbc_blk in reference namelist : bulk parameters183 182 READ ( numnam_ref, namsbc_blk, IOSTAT = ios, ERR = 901) 184 183 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_blk in reference namelist' ) 185 184 ! 186 REWIND( numnam_cfg ) !* Namelist namsbc_blk in configuration namelist : bulk parameters187 185 READ ( numnam_cfg, namsbc_blk, IOSTAT = ios, ERR = 902 ) 188 186 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_blk in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbccpl.F90
r11949 r11960 264 264 ! ================================ ! 265 265 ! 266 REWIND( numnam_ref ) ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling267 266 READ ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901) 268 267 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in reference namelist' ) 269 268 ! 270 REWIND( numnam_cfg ) ! Namelist namsbc_cpl in configuration namelist : Variables for OASIS coupling271 269 READ ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 272 270 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcflx.F90
r11536 r11960 91 91 IF( kt == nit000 ) THEN ! First call kt=nit000 92 92 ! set file information 93 REWIND( numnam_ref ) ! Namelist namsbc_flx in reference namelist : Files for fluxes94 93 READ ( numnam_ref, namsbc_flx, IOSTAT = ios, ERR = 901) 95 94 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in reference namelist' ) 96 95 97 REWIND( numnam_cfg ) ! Namelist namsbc_flx in configuration namelist : Files for fluxes98 96 READ ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 99 97 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcice_cice.F90
r11949 r11960 763 763 sn_bot5 = FLD_N( 'botmeltn5_1m' , -1. , 'botmeltn5' , .true. , .true. , ' yearly' , '' , '' , '' ) 764 764 765 REWIND( numnam_ref ) ! Namelist namsbc_cice in reference namelist :766 765 READ ( numnam_ref, namsbc_cice, IOSTAT = ios, ERR = 901) 767 766 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in reference namelist' ) 768 767 769 REWIND( numnam_cfg ) ! Namelist namsbc_cice in configuration namelist : Parameters of the run770 768 READ ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 771 769 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcice_if.F90
r11949 r11960 75 75 ! ! ====================== ! 76 76 ! set file information 77 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file78 77 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 79 78 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist' ) 80 79 81 REWIND( numnam_cfg ) ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file82 80 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 83 81 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcisf.F90
r11949 r11960 278 278 !!---------------------------------------------------------------------- 279 279 280 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs281 280 READ ( numnam_ref, namsbc_isf, IOSTAT = ios, ERR = 901) 282 281 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in reference namelist' ) 283 282 284 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs285 283 READ ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 286 284 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcmod.F90
r11949 r11960 109 109 ! 110 110 ! !** read Surface Module namelist 111 REWIND( numnam_ref ) !* Namelist namsbc in reference namelist : Surface boundary112 111 READ ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 113 112 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist' ) 114 REWIND( numnam_cfg ) !* Namelist namsbc in configuration namelist : Parameters of the run115 113 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 116 114 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcrnf.F90
r11949 r11960 267 267 ! ! ============ 268 268 ! 269 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs270 269 READ ( numnam_ref, namsbc_rnf, IOSTAT = ios, ERR = 901) 271 270 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in reference namelist' ) 272 271 273 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs274 272 READ ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 275 273 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcssr.F90
r11536 r11960 164 164 ENDIF 165 165 ! 166 REWIND( numnam_ref ) ! Namelist namsbc_ssr in reference namelist :167 166 READ ( numnam_ref, namsbc_ssr, IOSTAT = ios, ERR = 901) 168 167 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in reference namelist' ) 169 168 170 REWIND( numnam_cfg ) ! Namelist namsbc_ssr in configuration namelist :171 169 READ ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 172 170 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/sbcwave.F90
r11949 r11960 397 397 !!--------------------------------------------------------------------- 398 398 ! 399 REWIND( numnam_ref ) ! Namelist namsbc_wave in reference namelist : File for drag coeff. from wave model400 399 READ ( numnam_ref, namsbc_wave, IOSTAT = ios, ERR = 901) 401 400 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in reference namelist' ) 402 401 403 REWIND( numnam_cfg ) ! Namelist namsbc_wave in configuration namelist : File for drag coeff. from wave model404 402 READ ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 405 403 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/SBC/tideini.F90
r11536 r11960 58 58 ! 59 59 ! Read Namelist nam_tide 60 REWIND( numnam_ref ) ! Namelist nam_tide in reference namelist : Tides61 60 READ ( numnam_ref, nam_tide, IOSTAT = ios, ERR = 901) 62 61 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in reference namelist' ) 63 62 ! 64 REWIND( numnam_cfg ) ! Namelist nam_tide in configuration namelist : Tides65 63 READ ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 66 64 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/STO/stopar.F90
r11536 r11960 261 261 262 262 ! Read namsto namelist : stochastic parameterization 263 REWIND( numnam_ref ) ! Namelist namdyn_adv in reference namelist : Momentum advection scheme264 263 READ ( numnam_ref, namsto, IOSTAT = ios, ERR = 901) 265 264 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in reference namelist' ) 266 265 267 REWIND( numnam_cfg ) ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme268 266 READ ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 269 267 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/eosbn2.F90
r11949 r11960 1240 1240 !!---------------------------------------------------------------------- 1241 1241 ! 1242 REWIND( numnam_ref ) ! Namelist nameos in reference namelist : equation of state1243 1242 READ ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 ) 1244 1243 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist' ) 1245 1244 ! 1246 REWIND( numnam_cfg ) ! Namelist nameos in configuration namelist : equation of state1247 1245 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 1248 1246 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traadv.F90
r11949 r11960 196 196 ! 197 197 ! !== Namelist ==! 198 REWIND( numnam_ref ) ! Namelist namtra_adv in reference namelist : Tracer advection scheme199 198 READ ( numnam_ref, namtra_adv, IOSTAT = ios, ERR = 901) 200 199 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in reference namelist' ) 201 200 ! 202 REWIND( numnam_cfg ) ! Namelist namtra_adv in configuration namelist : Tracer advection scheme203 201 READ ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 204 202 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/trabbc.F90
r11949 r11960 135 135 !!---------------------------------------------------------------------- 136 136 ! 137 REWIND( numnam_ref ) ! Namelist nambbc in reference namelist : Bottom momentum boundary condition138 137 READ ( numnam_ref, nambbc, IOSTAT = ios, ERR = 901) 139 138 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in reference namelist' ) 140 139 ! 141 REWIND( numnam_cfg ) ! Namelist nambbc in configuration namelist : Bottom momentum boundary condition142 140 READ ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 143 141 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/trabbl.F90
r11949 r11960 488 488 !!---------------------------------------------------------------------- 489 489 ! 490 REWIND( numnam_ref ) ! Namelist nambbl in reference namelist : Bottom boundary layer scheme491 490 READ ( numnam_ref, nambbl, IOSTAT = ios, ERR = 901) 492 491 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist' ) 493 492 ! 494 REWIND( numnam_cfg ) ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme495 493 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 496 494 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/tradmp.F90
r11949 r11960 180 180 !!---------------------------------------------------------------------- 181 181 ! 182 REWIND( numnam_ref ) ! Namelist namtra_dmp in reference namelist : T & S relaxation183 182 READ ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 184 183 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist' ) 185 184 ! 186 REWIND( numnam_cfg ) ! Namelist namtra_dmp in configuration namelist : T & S relaxation187 185 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 188 186 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/tramle.F90
r11949 r11960 267 267 !!---------------------------------------------------------------------- 268 268 269 REWIND( numnam_ref ) ! Namelist namtra_mle in reference namelist : Tracer advection scheme270 269 READ ( numnam_ref, namtra_mle, IOSTAT = ios, ERR = 901) 271 270 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_mle in reference namelist' ) 272 271 273 REWIND( numnam_cfg ) ! Namelist namtra_mle in configuration namelist : Tracer advection scheme274 272 READ ( numnam_cfg, namtra_mle, IOSTAT = ios, ERR = 902 ) 275 273 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_mle in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRA/traqsr.F90
r11949 r11960 338 338 !!---------------------------------------------------------------------- 339 339 ! 340 REWIND( numnam_ref ) ! Namelist namtra_qsr in reference namelist341 340 READ ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901) 342 341 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist' ) 343 342 ! 344 REWIND( numnam_cfg ) ! Namelist namtra_qsr in configuration namelist345 343 READ ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 346 344 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRD/trdini.F90
r11949 r11960 47 47 !!---------------------------------------------------------------------- 48 48 ! 49 REWIND( numnam_ref ) ! Namelist namtrd in reference namelist : trends diagnostic50 49 READ ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901 ) 51 50 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist' ) 52 51 ! 53 REWIND( numnam_cfg ) ! Namelist namtrd in configuration namelist : trends diagnostic54 52 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 55 53 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/TRD/trdmxl.F90
r11949 r11960 733 733 !!---------------------------------------------------------------------- 734 734 ! 735 REWIND( numnam_ref ) ! Namelist namtrd_mxl in reference namelist : mixed layer trends diagnostic736 735 READ ( numnam_ref, namtrd_mxl, IOSTAT = ios, ERR = 901 ) 737 736 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in reference namelist' ) 738 737 739 REWIND( numnam_cfg ) ! Namelist namtrd_mxl in configuration namelist : mixed layer trends diagnostic740 738 READ ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 741 739 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/USR/usrdef_nam.F90
r11536 r11960 59 59 !!---------------------------------------------------------------------- 60 60 ! 61 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)62 61 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 63 62 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdfdrg.F90
r11949 r11960 238 238 ! !== drag nature ==! 239 239 ! 240 REWIND( numnam_ref ) ! Namelist namdrg in reference namelist241 240 READ ( numnam_ref, namdrg, IOSTAT = ios, ERR = 901) 242 241 901 IF( ios /= 0 ) CALL ctl_nam( ios , 'namdrg in reference namelist' ) 243 REWIND( numnam_cfg ) ! Namelist namdrg in configuration namelist244 242 READ ( numnam_cfg, namdrg, IOSTAT = ios, ERR = 902 ) 245 243 902 IF( ios > 0 ) CALL ctl_nam( ios , 'namdrg in configuration namelist' ) … … 337 335 ! !== read namlist ==! 338 336 ! 339 REWIND( numnam_ref ) ! Namelist cl_namdrg in reference namelist340 337 IF(ll_top) READ ( numnam_ref, namdrg_top, IOSTAT = ios, ERR = 901) 341 338 IF(ll_bot) READ ( numnam_ref, namdrg_bot, IOSTAT = ios, ERR = 901) 342 339 901 IF( ios /= 0 ) CALL ctl_nam( ios , TRIM(cl_namref) ) 343 REWIND( numnam_cfg ) ! Namelist cd_namdrg in configuration namelist344 340 IF(ll_top) READ ( numnam_cfg, namdrg_top, IOSTAT = ios, ERR = 902 ) 345 341 IF(ll_bot) READ ( numnam_cfg, namdrg_bot, IOSTAT = ios, ERR = 902 ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdfgls.F90
r11949 r11960 858 858 !!---------------------------------------------------------- 859 859 ! 860 REWIND( numnam_ref ) ! Namelist namzdf_gls in reference namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme861 860 READ ( numnam_ref, namzdf_gls, IOSTAT = ios, ERR = 901) 862 861 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in reference namelist' ) 863 862 864 REWIND( numnam_cfg ) ! Namelist namzdf_gls in configuration namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme865 863 READ ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 866 864 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdfiwm.F90
r11949 r11960 423 423 !!---------------------------------------------------------------------- 424 424 ! 425 REWIND( numnam_ref ) ! Namelist namzdf_iwm in reference namelist : Wave-driven mixing426 425 READ ( numnam_ref, namzdf_iwm, IOSTAT = ios, ERR = 901) 427 426 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in reference namelist' ) 428 427 ! 429 REWIND( numnam_cfg ) ! Namelist namzdf_iwm in configuration namelist : Wave-driven mixing430 428 READ ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 ) 431 429 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdfosm.F90
r11949 r11960 1387 1387 !!---------------------------------------------------------------------- 1388 1388 ! 1389 REWIND( numnam_ref ) ! Namelist namzdf_osm in reference namelist : Osmosis ML model1390 1389 READ ( numnam_ref, namzdf_osm, IOSTAT = ios, ERR = 901) 1391 1390 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_osm in reference namelist' ) 1392 1391 1393 REWIND( numnam_cfg ) ! Namelist namzdf_tke in configuration namelist : Turbulent Kinetic Energy1394 1392 READ ( numnam_cfg, namzdf_osm, IOSTAT = ios, ERR = 902 ) 1395 1393 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_osm in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdfphy.F90
r11949 r11960 93 93 ! 94 94 ! !== Namelist ==! 95 REWIND( numnam_ref ) ! Namelist namzdf in reference namelist : Vertical mixing parameters96 95 READ ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901) 97 96 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist' ) 98 97 ! 99 REWIND( numnam_cfg ) ! Namelist namzdf in reference namelist : Vertical mixing parameters100 98 READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 101 99 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdfric.F90
r11949 r11960 78 78 !!---------------------------------------------------------------------- 79 79 ! 80 REWIND( numnam_ref ) ! Namelist namzdf_ric in reference namelist : Vertical diffusion Kz depends on Richardson number81 80 READ ( numnam_ref, namzdf_ric, IOSTAT = ios, ERR = 901) 82 81 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist' ) 83 82 84 REWIND( numnam_cfg ) ! Namelist namzdf_ric in configuration namelist : Vertical diffusion Kz depends on Richardson number85 83 READ ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 86 84 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ZDF/zdftke.F90
r11949 r11960 656 656 !!---------------------------------------------------------------------- 657 657 ! 658 REWIND( numnam_ref ) ! Namelist namzdf_tke in reference namelist : Turbulent Kinetic Energy659 658 READ ( numnam_ref, namzdf_tke, IOSTAT = ios, ERR = 901) 660 659 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in reference namelist' ) 661 660 662 REWIND( numnam_cfg ) ! Namelist namzdf_tke in configuration namelist : Turbulent Kinetic Energy663 661 READ ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 664 662 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/nemogcm.F90
r11949 r11960 309 309 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 310 310 ! open reference and configuration namelist files 311 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)312 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)311 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 312 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 313 313 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 314 314 ! open /dev/null file to be able to supress output write easily … … 319 319 ! !--------------------! 320 320 ! 321 REWIND( numnam_ref ) ! Namelist namctl in reference namelist322 321 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 323 322 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 324 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist325 323 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 326 324 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 377 375 ! !------------------------------------! 378 376 ! 379 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist380 377 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 381 378 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 382 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist383 379 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 384 380 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 624 620 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 625 621 IF( numrun /= -1 ) CLOSE( numrun ) ! run statistics file 626 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist627 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist628 622 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 629 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist630 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist631 623 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 632 624 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OFF/dtadyn.F90
r11949 r11960 230 230 !!---------------------------------------------------------------------- 231 231 ! 232 REWIND( numnam_ref ) ! Namelist namdta_dyn in reference namelist : Offline: init. of dynamical data233 232 READ ( numnam_ref, namdta_dyn, IOSTAT = ios, ERR = 901) 234 233 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdta_dyn in reference namelist' ) 235 REWIND( numnam_cfg ) ! Namelist namdta_dyn in configuration namelist : Offline: init. of dynamical data236 234 READ ( numnam_cfg, namdta_dyn, IOSTAT = ios, ERR = 902 ) 237 235 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdta_dyn in configuration namelist' ) … … 483 481 !!---------------------------------------------------------------------- 484 482 ! 485 REWIND( numnam_ref ) ! Namelist namdta_dyn in reference namelist : Offline: init. of dynamical data486 483 READ ( numnam_ref, namdta_dyn, IOSTAT = ios, ERR = 901) 487 484 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdta_dyn in reference namelist' ) 488 REWIND( numnam_cfg ) ! Namelist namdta_dyn in configuration namelist : Offline: init. of dynamical data489 485 READ ( numnam_cfg, namdta_dyn, IOSTAT = ios, ERR = 902 ) 490 486 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdta_dyn in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OFF/nemogcm.F90
r11949 r11960 205 205 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 206 206 ! open reference and configuration namelist files 207 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)208 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)207 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 208 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 209 209 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 210 210 ! open /dev/null file to be able to supress output write easily … … 215 215 ! !--------------------! 216 216 ! 217 REWIND( numnam_ref ) ! Namelist namctl in reference namelist218 217 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 219 218 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 220 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist221 219 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 222 220 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 273 271 ! !------------------------------------! 274 272 ! 275 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist276 273 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 277 274 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 278 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist279 275 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 280 276 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 463 459 ! 464 460 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 465 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist466 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist467 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file468 461 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 469 462 ! -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/SAO/nemogcm.F90
r11949 r11960 135 135 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 136 136 ! open reference and configuration namelist files 137 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)138 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)137 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 138 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 139 139 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 140 140 ! open /dev/null file to be able to supress output write easily … … 145 145 ! !--------------------! 146 146 ! 147 REWIND( numnam_ref ) ! Namelist namctl in reference namelist148 147 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 149 148 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 150 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist151 149 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 152 150 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 203 201 ! !------------------------------------! 204 202 ! 205 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist206 203 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 207 204 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 208 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist209 205 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 210 206 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 363 359 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 364 360 IF( numrun /= -1 ) CLOSE( numrun ) ! run statistics file 365 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist366 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist367 361 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 368 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist369 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist370 362 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 371 363 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/SAO/sao_data.F90
r11536 r11960 52 52 53 53 ! Standard offline obs_oper settings 54 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark55 54 READ ( numnam_ref, namsao, IOSTAT = ios, ERR = 901 ) 56 55 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsao in reference namelist' ) 57 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark58 56 READ ( numnam_cfg, namsao, IOSTAT = ios, ERR = 902 ) 59 57 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsao in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/SAS/nemogcm.F90
r11949 r11960 243 243 ! open ocean.output as soon as possible to get all output prints (including errors messages) 244 244 IF( lk_oasis ) THEN 245 IF( lwm ) CALL ctl_opn( numout, 'sas.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )245 IF( lwm ) CALL ctl_opn( numout, 'sas.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 246 246 ! open reference and configuration namelist files 247 CALL ctl_opn( numnam_ref, 'namelist_sas_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)248 CALL ctl_opn( numnam_cfg, 'namelist_sas_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)249 IF( lwm ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )247 CALL load_nml( numnam_ref, 'namelist_sas_ref', -1, lwm ) 248 CALL load_nml( numnam_cfg, 'namelist_sas_cfg', -1, lwm ) 249 IF( lwm ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 250 250 ELSE 251 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )251 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 252 252 ! open reference and configuration namelist files 253 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)254 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)255 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )253 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 254 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 255 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 256 256 ENDIF 257 257 ! open /dev/null file to be able to supress output write easily … … 262 262 ! !--------------------! 263 263 ! 264 REWIND( numnam_ref ) ! Namelist namctl in reference namelist265 264 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 266 265 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 267 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist268 266 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 269 267 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 324 322 ! !------------------------------------! 325 323 ! 326 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist327 324 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 328 325 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 329 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist330 326 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 331 327 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 505 501 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 506 502 IF( numrun /= -1 ) CLOSE( numrun ) ! run statistics file 507 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist508 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist509 503 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 510 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist511 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist512 504 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 513 505 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/SAS/sbcssm.F90
r11949 r11960 190 190 ENDIF 191 191 ! 192 REWIND( numnam_ref ) ! Namelist namsbc_sas in reference namelist : Input fields193 192 READ ( numnam_ref, namsbc_sas, IOSTAT = ios, ERR = 901) 194 193 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_sas in reference namelist' ) 195 REWIND( numnam_cfg ) ! Namelist namsbc_sas in configuration namelist : Input fields196 194 READ ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 ) 197 195 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/AGE/trcnam_age.F90
r11536 r11960 54 54 ln_trc_obc(jp_age) = .false. 55 55 ! 56 REWIND( numnat_ref ) ! Namelist namagedate in reference namelist : AGE parameters57 56 READ ( numnat_ref, namage, IOSTAT = ios, ERR = 901) 58 57 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist' ) 59 REWIND( numnat_cfg ) ! Namelist namagedate in configuration namelist : AGE parameters60 58 READ ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 ) 61 59 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/C14/trcnam_c14.F90
r11536 r11960 61 61 ln_trc_obc(jp_c14) = .false. 62 62 ! 63 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist :64 63 READ ( numtrc_ref, namc14_typ, IOSTAT = ios, ERR = 901) 65 64 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_typ in reference namelist' ) 66 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist67 65 READ ( numtrc_cfg, namc14_typ, IOSTAT = ios, ERR = 902) 68 66 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_typ in configuration namelist' ) … … 78 76 ENDIF 79 77 80 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist :81 78 READ ( numtrc_ref, namc14_sbc, IOSTAT = ios, ERR = 903) 82 79 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_sbc in reference namelist' ) 83 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist84 80 READ ( numtrc_cfg, namc14_sbc, IOSTAT = ios, ERR = 904) 85 81 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_sbc in configuration namelist' ) … … 94 90 ENDIF 95 91 96 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist :97 92 READ ( numtrc_ref, namc14_fcg, IOSTAT = ios, ERR = 905) 98 93 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_fcg in reference namelist' ) 99 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist100 94 READ ( numtrc_cfg, namc14_fcg, IOSTAT = ios, ERR = 906) 101 95 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_fcg in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/CFC/trcnam_cfc.F90
r11536 r11960 51 51 ENDIF 52 52 ! 53 REWIND( numtrc_ref ) ! Namelist namcfcdate in reference namelist : CFC parameters54 53 READ ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901) 55 54 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in reference namelist' ) 56 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist : CFC parameters57 55 READ ( numtrc_cfg, namcfc, IOSTAT = ios, ERR = 902 ) 58 56 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfc in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P2Z/p2zbio.F90
r11949 r11960 403 403 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~' 404 404 ! 405 REWIND( numnatp_ref ) ! Namelist namlobphy in reference namelist : Lobster biological parameters406 405 READ ( numnatp_ref, namlobphy, IOSTAT = ios, ERR = 901) 407 406 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist' ) 408 REWIND( numnatp_cfg ) ! Namelist namlobphy in configuration namelist : Lobster biological parameters409 407 READ ( numnatp_cfg, namlobphy, IOSTAT = ios, ERR = 902 ) 410 408 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist' ) … … 420 418 ENDIF 421 419 422 REWIND( numnatp_ref ) ! Namelist namlobnut in reference namelist : Lobster nutriments parameters423 420 READ ( numnatp_ref, namlobnut, IOSTAT = ios, ERR = 903) 424 421 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist' ) 425 REWIND( numnatp_cfg ) ! Namelist namlobnut in configuration namelist : Lobster nutriments parameters426 422 READ ( numnatp_cfg, namlobnut, IOSTAT = ios, ERR = 904 ) 427 423 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist' ) … … 437 433 ENDIF 438 434 439 REWIND( numnatp_ref ) ! Namelist namlobzoo in reference namelist : Lobster zooplankton parameters440 435 READ ( numnatp_ref, namlobzoo, IOSTAT = ios, ERR = 905) 441 436 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist' ) 442 REWIND( numnatp_cfg ) ! Namelist namlobzoo in configuration namelist : Lobster zooplankton parameters443 437 READ ( numnatp_cfg, namlobzoo, IOSTAT = ios, ERR = 906 ) 444 438 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist' ) … … 459 453 ENDIF 460 454 461 REWIND( numnatp_ref ) ! Namelist namlobdet in reference namelist : Lobster detritus parameters462 455 READ ( numnatp_ref, namlobdet, IOSTAT = ios, ERR = 907) 463 456 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist' ) 464 REWIND( numnatp_cfg ) ! Namelist namlobdet in configuration namelist : Lobster detritus parameters465 457 READ ( numnatp_cfg, namlobdet, IOSTAT = ios, ERR = 908 ) 466 458 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist' ) … … 474 466 ENDIF 475 467 476 REWIND( numnatp_ref ) ! Namelist namlobdom in reference namelist : Lobster DOM breakdown rate477 468 READ ( numnatp_ref, namlobdom, IOSTAT = ios, ERR = 909) 478 469 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist' ) 479 REWIND( numnatp_cfg ) ! Namelist namlobdom in configuration namelist : Lobster DOM breakdown rate480 470 READ ( numnatp_cfg, namlobdom, IOSTAT = ios, ERR = 910 ) 481 471 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P2Z/p2zopt.F90
r11949 r11960 160 160 !!---------------------------------------------------------------------- 161 161 162 REWIND( numnatp_ref ) ! Namelist namlobopt in reference namelist : Lobster options163 162 READ ( numnatp_ref, namlobopt, IOSTAT = ios, ERR = 901) 164 163 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist' ) 165 164 166 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options167 165 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 168 166 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist' ) … … 182 180 ENDIF 183 181 ! 184 REWIND( numnatp_ref ) ! Namelist namlobrat in reference namelist : Lobster ratios185 182 READ ( numnatp_ref, namlobrat, IOSTAT = ios, ERR = 903) 186 183 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist' ) 187 184 188 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios189 185 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 190 186 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P2Z/p2zsed.F90
r11949 r11960 133 133 !!---------------------------------------------------------------------- 134 134 ! 135 REWIND( numnatp_ref ) ! Namelist namlobsed in reference namelist : Lobster sediments136 135 READ ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 137 136 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist' ) 138 REWIND( numnatp_cfg ) ! Namelist namlobsed in configuration namelist : Lobster sediments139 137 READ ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 140 138 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zfechem.F90
r11949 r11960 255 255 ENDIF 256 256 ! 257 REWIND( numnatp_ref ) ! Namelist nampisfer in reference namelist : Pisces iron chemistry258 257 READ ( numnatp_ref, nampisfer, IOSTAT = ios, ERR = 901) 259 258 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in reference namelist' ) 260 REWIND( numnatp_cfg ) ! Namelist nampisfer in configuration namelist : Pisces iron chemistry261 259 READ ( numnatp_cfg, nampisfer, IOSTAT = ios, ERR = 902 ) 262 260 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zflx.F90
r11949 r11960 240 240 ENDIF 241 241 ! 242 REWIND( numnatp_ref ) ! Namelist nampisext in reference namelist : Pisces atm. conditions243 242 READ ( numnatp_ref, nampisext, IOSTAT = ios, ERR = 901) 244 243 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist' ) 245 REWIND( numnatp_cfg ) ! Namelist nampisext in configuration namelist : Pisces atm. conditions246 244 READ ( numnatp_cfg, nampisext, IOSTAT = ios, ERR = 902 ) 247 245 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist' ) … … 321 319 ENDIF 322 320 ! 323 REWIND( numnatp_ref ) ! Namelist nampisatm in reference namelist : Pisces atm. sea level pressure file324 321 READ ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901) 325 322 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist' ) 326 REWIND( numnatp_cfg ) ! Namelist nampisatm in configuration namelist : Pisces atm. sea level pressure file327 323 READ ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 328 324 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zligand.F90
r11949 r11960 126 126 WRITE(numout,*) '~~~~~~~~~~~~~~~' 127 127 ENDIF 128 REWIND( numnatp_ref ) ! Namelist nampislig in reference namelist : Pisces remineralization129 128 READ ( numnatp_ref, nampislig, IOSTAT = ios, ERR = 901) 130 129 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislig in reference namelist' ) 131 REWIND( numnatp_cfg ) ! Namelist nampislig in configuration namelist : Pisces remineralization132 130 READ ( numnatp_cfg, nampislig, IOSTAT = ios, ERR = 902 ) 133 131 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislig in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zlim.F90
r11949 r11960 253 253 ENDIF 254 254 ! 255 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters256 255 READ ( numnatp_ref, namp4zlim, IOSTAT = ios, ERR = 901) 257 256 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zlim in reference namelist' ) 258 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters259 257 READ ( numnatp_cfg, namp4zlim, IOSTAT = ios, ERR = 902 ) 260 258 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zlim in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zlys.F90
r11949 r11960 163 163 ENDIF 164 164 ! 165 REWIND( numnatp_ref ) ! Namelist nampiscal in reference namelist : Pisces CaCO3 dissolution166 165 READ ( numnatp_ref, nampiscal, IOSTAT = ios, ERR = 901) 167 166 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist' ) 168 REWIND( numnatp_cfg ) ! Namelist nampiscal in configuration namelist : Pisces CaCO3 dissolution169 167 READ ( numnatp_cfg, nampiscal, IOSTAT = ios, ERR = 902 ) 170 168 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zmeso.F90
r11949 r11960 291 291 ENDIF 292 292 ! 293 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton294 293 READ ( numnatp_ref, namp4zmes, IOSTAT = ios, ERR = 901) 295 294 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist' ) 296 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton297 295 READ ( numnatp_cfg, namp4zmes, IOSTAT = ios, ERR = 902 ) 298 296 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zmicro.F90
r11949 r11960 244 244 ENDIF 245 245 ! 246 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton247 246 READ ( numnatp_ref, namp4zzoo, IOSTAT = ios, ERR = 901) 248 247 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zzoo in reference namelist' ) 249 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton250 248 READ ( numnatp_cfg, namp4zzoo, IOSTAT = ios, ERR = 902 ) 251 249 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zmort.F90
r11949 r11960 230 230 ENDIF 231 231 ! 232 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton233 232 READ ( numnatp_ref, namp4zmort, IOSTAT = ios, ERR = 901) 234 233 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmort in reference namelist' ) 235 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton236 234 READ ( numnatp_cfg, namp4zmort, IOSTAT = ios, ERR = 902 ) 237 235 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmort in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zopt.F90
r11949 r11960 402 402 WRITE(numout,*) '~~~~~~~~~~~~ ' 403 403 ENDIF 404 REWIND( numnatp_ref ) ! Namelist nampisopt in reference namelist : Pisces attenuation coef. and PAR405 404 READ ( numnatp_ref, nampisopt, IOSTAT = ios, ERR = 901) 406 405 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist' ) 407 REWIND( numnatp_cfg ) ! Namelist nampisopt in configuration namelist : Pisces attenuation coef. and PAR408 406 READ ( numnatp_cfg, nampisopt, IOSTAT = ios, ERR = 902 ) 409 407 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zpoc.F90
r11949 r11960 498 498 ENDIF 499 499 ! 500 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization501 500 READ ( numnatp_ref, nampispoc, IOSTAT = ios, ERR = 901) 502 501 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampispoc in reference namelist' ) 503 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization504 502 READ ( numnatp_cfg, nampispoc, IOSTAT = ios, ERR = 902 ) 505 503 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampispoc in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zprod.F90
r11949 r11960 491 491 ENDIF 492 492 ! 493 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production494 493 READ ( numnatp_ref, namp4zprod, IOSTAT = ios, ERR = 901) 495 494 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zprod in reference namelist' ) 496 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production497 495 READ ( numnatp_cfg, namp4zprod, IOSTAT = ios, ERR = 902 ) 498 496 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zprod in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zrem.F90
r11949 r11960 328 328 ENDIF 329 329 ! 330 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization331 330 READ ( numnatp_ref, nampisrem, IOSTAT = ios, ERR = 901) 332 331 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in reference namelist' ) 333 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization334 332 READ ( numnatp_cfg, nampisrem, IOSTAT = ios, ERR = 902 ) 335 333 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zsbc.F90
r11949 r11960 232 232 ENDIF 233 233 ! !* set file information 234 REWIND( numnatp_ref ) ! Namelist nampissbc in reference namelist : Pisces external sources of nutrients235 234 READ ( numnatp_ref, nampissbc, IOSTAT = ios, ERR = 901) 236 235 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in reference namelist' ) 237 REWIND( numnatp_cfg ) ! Namelist nampissbc in configuration namelist : Pisces external sources of nutrients238 236 READ ( numnatp_cfg, nampissbc, IOSTAT = ios, ERR = 902 ) 239 237 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zsms.F90
r11949 r11960 202 202 ENDIF 203 203 204 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables205 204 READ ( numnatp_ref, nampisbio, IOSTAT = ios, ERR = 901) 206 205 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist' ) 207 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables208 206 READ ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 ) 209 207 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist' ) … … 233 231 234 232 235 REWIND( numnatp_ref ) ! Namelist nampisdmp in reference namelist : Pisces damping236 233 READ ( numnatp_ref, nampisdmp, IOSTAT = ios, ERR = 905) 237 234 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist' ) 238 REWIND( numnatp_cfg ) ! Namelist nampisdmp in configuration namelist : Pisces damping239 235 READ ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 ) 240 236 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist' ) … … 248 244 ENDIF 249 245 250 REWIND( numnatp_ref ) ! Namelist nampismass in reference namelist : Pisces mass conservation check251 246 READ ( numnatp_ref, nampismass, IOSTAT = ios, ERR = 907) 252 247 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist' ) 253 REWIND( numnatp_cfg ) ! Namelist nampismass in configuration namelist : Pisces mass conservation check254 248 READ ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 ) 255 249 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p5zlim.F90
r11949 r11960 449 449 !!---------------------------------------------------------------------- 450 450 ! 451 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters452 451 READ ( numnatp_ref, namp5zlim, IOSTAT = ios, ERR = 901) 453 452 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist' ) 454 453 ! 455 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters456 454 READ ( numnatp_cfg, namp5zlim, IOSTAT = ios, ERR = 902 ) 457 455 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist' ) … … 490 488 ENDIF 491 489 492 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters493 490 READ ( numnatp_ref, namp5zquota, IOSTAT = ios, ERR = 903) 494 491 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisquota in reference namelist' ) 495 492 ! 496 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters497 493 READ ( numnatp_cfg, namp5zquota, IOSTAT = ios, ERR = 904 ) 498 494 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisquota in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p5zmeso.F90
r11949 r11960 408 408 !!---------------------------------------------------------------------- 409 409 ! 410 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton411 410 READ ( numnatp_ref, namp5zmes, IOSTAT = ios, ERR = 901) 412 411 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist' ) 413 412 ! 414 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton415 413 READ ( numnatp_cfg, namp5zmes, IOSTAT = ios, ERR = 902 ) 416 414 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p5zmicro.F90
r11949 r11960 350 350 !!---------------------------------------------------------------------- 351 351 ! 352 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton353 352 READ ( numnatp_ref, namp5zzoo, IOSTAT = ios, ERR = 901) 354 353 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zzoo in reference namelist' ) 355 354 ! 356 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton357 355 READ ( numnatp_cfg, namp5zzoo, IOSTAT = ios, ERR = 902 ) 358 356 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zzoo in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p5zmort.F90
r11949 r11960 290 290 !!---------------------------------------------------------------------- 291 291 292 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton293 292 READ ( numnatp_ref, namp5zmort, IOSTAT = ios, ERR = 901) 294 293 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zmort in reference namelist' ) 295 294 296 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton297 295 READ ( numnatp_cfg, namp5zmort, IOSTAT = ios, ERR = 902 ) 298 296 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zmort in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p5zprod.F90
r11949 r11960 583 583 !!---------------------------------------------------------------------- 584 584 585 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production586 585 READ ( numnatp_ref, namp5zprod, IOSTAT = ios, ERR = 901) 587 586 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zprod in reference namelist' ) 588 587 589 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production590 588 READ ( numnatp_cfg, namp5zprod, IOSTAT = ios, ERR = 902 ) 591 589 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/SED/sedini.F90
r11949 r11960 405 405 !!---------------------------------------------------------------------- 406 406 407 INTEGER :: numnamsed_ref = -1 !! Logical units fornamelist sediment408 INTEGER :: numnamsed_cfg = -1 !! Logical units fornamelist sediment407 CHARACTER(:), ALLOCATABLE :: numnamsed_ref !! Character buffer for reference namelist sediment 408 CHARACTER(:), ALLOCATABLE :: numnamsed_cfg !! Character buffer for configuration namelist sediment 409 409 INTEGER :: ios ! Local integer output status for namelist read 410 410 CHARACTER(LEN=20) :: clname … … 451 451 IF(lwp) WRITE(numsed,*) ' sed_init_nam : read SEDIMENT namelist' 452 452 IF(lwp) WRITE(numsed,*) ' ~~~~~~~~~~~~~~' 453 CALL ctl_opn( numnamsed_ref, TRIM( clname )//'_ref', 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)454 CALL ctl_opn( numnamsed_cfg, TRIM( clname )//'_cfg', 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)453 CALL load_nml( numnamsed_ref, TRIM( clname )//'_ref', numout, lwm ) 454 CALL load_nml( numnamsed_cfg, TRIM( clname )//'_cfg', numout, lwm ) 455 455 456 456 nitsed000 = nittrc000 457 457 nitsedend = nitend 458 458 ! Namelist nam_run 459 REWIND( numnamsed_ref ) ! Namelist nam_run in reference namelist : Pisces variables460 459 READ ( numnamsed_ref, nam_run, IOSTAT = ios, ERR = 901) 461 460 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in reference namelist' ) 462 461 463 REWIND( numnamsed_cfg ) ! Namelist nam_run in reference namelist : Pisces variables464 462 READ ( numnamsed_cfg, nam_run, IOSTAT = ios, ERR = 902) 465 463 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in configuration namelist' ) … … 473 471 IF ( ln_p5z .AND. ln_sed_2way ) CALL ctl_stop( '2 ways coupling with sediment cannot be activated with PISCES-QUOTA' ) 474 472 475 REWIND( numnamsed_ref ) ! Namelist nam_geom in reference namelist : Pisces variables476 473 READ ( numnamsed_ref, nam_geom, IOSTAT = ios, ERR = 903) 477 474 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in reference namelist' ) 478 475 479 REWIND( numnamsed_cfg ) ! Namelist nam_geom in reference namelist : Pisces variables480 476 READ ( numnamsed_cfg, nam_geom, IOSTAT = ios, ERR = 904) 481 477 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in configuration namelist' ) … … 496 492 dtsed = r2dttrc 497 493 498 REWIND( numnamsed_ref ) ! Namelist nam_trased in reference namelist : Pisces variables499 494 READ ( numnamsed_ref, nam_trased, IOSTAT = ios, ERR = 905) 500 495 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in reference namelist' ) 501 496 502 REWIND( numnamsed_cfg ) ! Namelist nam_trased in reference namelist : Pisces variables503 497 READ ( numnamsed_cfg, nam_trased, IOSTAT = ios, ERR = 906) 504 498 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in configuration namelist' ) … … 529 523 ENDIF 530 524 531 REWIND( numnamsed_ref ) ! Namelist nam_diased in reference namelist : Pisces variables532 525 READ ( numnamsed_ref, nam_diased, IOSTAT = ios, ERR = 907) 533 526 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in reference namelist' ) 534 527 535 REWIND( numnamsed_cfg ) ! Namelist nam_diased in reference namelist : Pisces variables536 528 READ ( numnamsed_cfg, nam_diased, IOSTAT = ios, ERR = 908) 537 529 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in configuration namelist' ) … … 571 563 ! Inorganic chemistry parameters 572 564 !---------------------------------- 573 REWIND( numnamsed_ref ) ! Namelist nam_inorg in reference namelist : Pisces variables574 565 READ ( numnamsed_ref, nam_inorg, IOSTAT = ios, ERR = 909) 575 566 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in reference namelist' ) 576 567 577 REWIND( numnamsed_cfg ) ! Namelist nam_inorg in reference namelist : Pisces variables578 568 READ ( numnamsed_cfg, nam_inorg, IOSTAT = ios, ERR = 910) 579 569 910 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in configuration namelist' ) … … 597 587 ! Additional parameter linked to POC/O2/No3/Po4 598 588 !---------------------------------------------- 599 REWIND( numnamsed_ref ) ! Namelist nam_poc in reference namelist : Pisces variables600 589 READ ( numnamsed_ref, nam_poc, IOSTAT = ios, ERR = 911) 601 590 911 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in reference namelist' ) 602 591 603 REWIND( numnamsed_cfg ) ! Namelist nam_poc in reference namelist : Pisces variables604 592 READ ( numnamsed_cfg, nam_poc, IOSTAT = ios, ERR = 912) 605 593 912 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in configuration namelist' ) … … 649 637 ! Bioturbation parameter 650 638 !------------------------ 651 REWIND( numnamsed_ref ) ! Namelist nam_btb in reference namelist : Pisces variables652 639 READ ( numnamsed_ref, nam_btb, IOSTAT = ios, ERR = 913) 653 640 913 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in reference namelist' ) 654 641 655 REWIND( numnamsed_cfg ) ! Namelist nam_btb in reference namelist : Pisces variables656 642 READ ( numnamsed_cfg, nam_btb, IOSTAT = ios, ERR = 914) 657 643 914 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in configuration namelist' ) … … 670 656 ! Initial value (t=0) for sediment pore water and solid components 671 657 !---------------------------------------------------------------- 672 REWIND( numnamsed_ref ) ! Namelist nam_rst in reference namelist : Pisces variables673 658 READ ( numnamsed_ref, nam_rst, IOSTAT = ios, ERR = 915) 674 659 915 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in reference namelist' ) 675 660 676 REWIND( numnamsed_cfg ) ! Namelist nam_rst in reference namelist : Pisces variables677 661 READ ( numnamsed_cfg, nam_rst, IOSTAT = ios, ERR = 916) 678 662 916 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in configuration namelist' ) … … 685 669 nn_dtsed = 1 686 670 687 CLOSE( numnamsed_cfg )688 CLOSE( numnamsed_ref )689 671 690 672 END SUBROUTINE sed_init_nam -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/sms_pisces.F90
r10788 r11960 13 13 PUBLIC 14 14 15 INTEGER :: numnatp_ref = -1 !! Logical units fornamelist pisces16 INTEGER :: numnatp_cfg = -1 !! Logical units fornamelist pisces17 INTEGER :: numonp = -1 !! Logical unit for namelist pisces output15 CHARACTER(:), ALLOCATABLE :: numnatp_ref !! Character buffer for reference namelist pisces 16 CHARACTER(:), ALLOCATABLE :: numnatp_cfg !! Character buffer for configuration namelist pisces 17 INTEGER :: numonp = -1 !! Logical unit for namelist pisces output 18 18 19 19 ! !: PISCES : silicon dependant half saturation -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/trcnam_pisces.F90
r11536 r11960 51 51 IF(lwp) WRITE(numout,*) 'trc_nam_pisces : read PISCES namelist' 52 52 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~~' 53 CALL ctl_opn( numnatp_ref, TRIM( clname )//'_ref', 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)54 CALL ctl_opn( numnatp_cfg, TRIM( clname )//'_cfg', 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)53 CALL load_nml( numnatp_ref, TRIM( clname )//'_ref', numout, lwm ) 54 CALL load_nml( numnatp_cfg, TRIM( clname )//'_cfg', numout, lwm ) 55 55 IF(lwm) CALL ctl_opn( numonp , 'output.namelist.pis' , 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 56 56 ! 57 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables58 57 READ ( numnatp_ref, nampismod, IOSTAT = ios, ERR = 901) 59 58 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismod in reference namelist' ) 60 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables61 59 READ ( numnatp_cfg, nampismod, IOSTAT = ios, ERR = 902 ) 62 60 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismod in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/TRP/trcadv.F90
r11949 r11960 166 166 ! 167 167 ! !== Namelist ==! 168 REWIND( numnat_ref ) ! namtrc_adv in reference namelist169 168 READ ( numnat_ref, namtrc_adv, IOSTAT = ios, ERR = 901) 170 169 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in reference namelist' ) 171 REWIND( numnat_cfg ) ! namtrc_adv in configuration namelist172 170 READ ( numnat_cfg, namtrc_adv, IOSTAT = ios, ERR = 902 ) 173 171 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/TRP/trcdmp.F90
r11949 r11960 183 183 !!---------------------------------------------------------------------- 184 184 ! 185 REWIND( numnat_ref ) ! Namelist namtrc_dmp in reference namelist : Passive tracers newtonian damping186 185 READ ( numnat_ref, namtrc_dmp, IOSTAT = ios, ERR = 909) 187 186 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in reference namelist' ) 188 REWIND( numnat_cfg ) ! Namelist namtrc_dmp in configuration namelist : Passive tracers newtonian damping189 187 READ ( numnat_cfg, namtrc_dmp, IOSTAT = ios, ERR = 910) 190 188 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/TRP/trcldf.F90
r11949 r11960 149 149 ENDIF 150 150 ! 151 REWIND( numnat_ref ) ! namtrc_ldf in reference namelist152 151 READ ( numnat_ref, namtrc_ldf, IOSTAT = ios, ERR = 903) 153 152 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in reference namelist' ) 154 153 ! 155 REWIND( numnat_cfg ) ! namtrc_ldf in configuration namelist156 154 READ ( numnat_cfg, namtrc_ldf, IOSTAT = ios, ERR = 904 ) 157 155 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/TRP/trcrad.F90
r11949 r11960 90 90 !!---------------------------------------------------------------------- 91 91 ! 92 REWIND( numnat_ref ) ! namtrc_rad in reference namelist93 92 READ ( numnat_ref, namtrc_rad, IOSTAT = ios, ERR = 907) 94 93 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in reference namelist' ) 95 REWIND( numnat_cfg ) ! namtrc_rad in configuration namelist96 94 READ ( numnat_cfg, namtrc_rad, IOSTAT = ios, ERR = 908 ) 97 95 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_rad in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/TRP/trcsink.F90
r11949 r11960 218 218 !!---------------------------------------------------------------------- 219 219 ! 220 REWIND( numnat_ref ) ! namtrc_rad in reference namelist221 220 READ ( numnat_ref, namtrc_snk, IOSTAT = ios, ERR = 907) 222 221 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_snk in reference namelist' ) 223 REWIND( numnat_cfg ) ! namtrc_rad in configuration namelist224 222 READ ( numnat_cfg, namtrc_snk, IOSTAT = ios, ERR = 908 ) 225 223 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_snk in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/trc.F90
r11949 r11960 18 18 19 19 ! !!- logical units of passive tracers 20 INTEGER, PUBLIC :: numnat_ref = -1 !: reference passive tracer namelist_top_ref21 INTEGER, PUBLIC :: numnat_cfg = -1 !: reference passive tracer namelist_top_cfg22 20 INTEGER, PUBLIC :: numont = -1 !: reference passive tracer namelist output output.namelist.top 23 INTEGER, PUBLIC :: numtrc_ref = -1 !: reference passive tracer namelist_top_ref24 INTEGER, PUBLIC :: numtrc_cfg = -1 !: reference passive tracer namelist_top_cfg25 21 INTEGER, PUBLIC :: numonr = -1 !: reference passive tracer namelist output output.namelist.top 26 22 INTEGER, PUBLIC :: numstr !: tracer statistics 27 23 INTEGER, PUBLIC :: numrtr !: trc restart (read ) 28 24 INTEGER, PUBLIC :: numrtw !: trc restart ( write ) 25 CHARACTER(:), ALLOCATABLE, PUBLIC :: numnat_ref !: character buffer for reference passive tracer namelist_top_ref 26 CHARACTER(:), ALLOCATABLE, PUBLIC :: numnat_cfg !: character buffer for configuration specific passive tracer namelist_top_cfg 27 CHARACTER(:), ALLOCATABLE, PUBLIC :: numtrc_ref !: character buffer for reference passive tracer namelist_trc_ref 28 CHARACTER(:), ALLOCATABLE, PUBLIC :: numtrc_cfg !: character buffer for configuration specific passive tracer namelist_trc_cfg 29 29 30 30 !! passive tracers fields (before,now,after) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/trcbc.F90
r11949 r11960 121 121 ! 122 122 ! Read Boundary Conditions Namelists 123 REWIND( numnat_ref ) ! Namelist namtrc_bc in reference namelist : Passive tracer data structure124 123 READ ( numnat_ref, namtrc_bc, IOSTAT = ios, ERR = 901) 125 124 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bc in reference namelist' ) 126 REWIND( numnat_cfg ) ! Namelist namtrc_bc in configuration namelist : Passive tracer data structure127 125 READ ( numnat_cfg, namtrc_bc, IOSTAT = ios, ERR = 902 ) 128 126 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bc in configuration namelist' ) … … 130 128 131 129 IF ( ln_bdy ) THEN 132 REWIND( numnat_ref ) ! Namelist namtrc_bdy in reference namelist : Passive tracer data structure133 130 READ ( numnat_ref, namtrc_bdy, IOSTAT = ios, ERR = 903) 134 131 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in reference namelist' ) … … 136 133 cn_trc (2:jp_bdy) = cn_trc (1) 137 134 cn_trc_dflt(2:jp_bdy) = cn_trc_dflt(1) 138 REWIND( numnat_cfg ) ! Namelist namtrc_bdy in configuration namelist : Passive tracer data structure139 135 READ ( numnat_cfg, namtrc_bdy, IOSTAT = ios, ERR = 904 ) 140 136 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/trcdta.F90
r11949 r11960 98 98 ENDIF 99 99 ! 100 REWIND( numnat_ref ) ! Namelist namtrc_dta in reference namelist : Passive tracer input data101 100 READ ( numnat_ref, namtrc_dta, IOSTAT = ios, ERR = 901) 102 101 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta_ini in reference namelist' ) 103 REWIND( numnat_cfg ) ! Namelist namtrc_dta in configuration namelist : Passive tracer input data104 102 READ ( numnat_cfg, namtrc_dta, IOSTAT = ios, ERR = 902 ) 105 103 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_dta_ini in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/trcice.F90
r11536 r11960 85 85 ENDIF 86 86 ! 87 REWIND( numnat_ref ) ! Namelist namtrc_ice in reference namelist : Passive tracer input data88 87 READ ( numnat_ref, namtrc_ice, IOSTAT = ios, ERR = 901) 89 88 901 IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtrc_ice in reference namelist ' ) 90 REWIND( numnat_cfg ) ! Namelist namtrc_ice in configuration namelist : Pisces external sources of nutrients91 89 READ ( numnat_cfg, namtrc_ice, IOSTAT = ios, ERR = 902 ) 92 90 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_ice in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/trcnam.F90
r11949 r11960 105 105 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 106 106 ! 107 CALL ctl_opn( numnat_ref, 'namelist_top_ref' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)108 CALL ctl_opn( numnat_cfg, 'namelist_top_cfg' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)107 CALL load_nml( numnat_ref, 'namelist_top_ref' , numout, lwm ) 108 CALL load_nml( numnat_cfg, 'namelist_top_cfg' , numout, lwm ) 109 109 IF(lwm) CALL ctl_opn( numont, 'output.namelist.top', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 110 110 ! 111 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables112 111 READ ( numnat_ref, namtrc_run, IOSTAT = ios, ERR = 901) 113 112 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 114 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables115 113 READ ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 116 114 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) … … 150 148 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 151 149 152 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables153 150 READ ( numnat_ref, namtrc, IOSTAT = ios, ERR = 901) 154 151 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 155 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables156 152 READ ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 157 153 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) … … 220 216 IF( ll_cfc .OR. ln_c14 ) THEN 221 217 ! ! Open namelist files 222 CALL ctl_opn( numtrc_ref, 'namelist_trc_ref' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)223 CALL ctl_opn( numtrc_cfg, 'namelist_trc_cfg' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)218 CALL load_nml( numtrc_ref, 'namelist_trc_ref' , numout, lwm ) 219 CALL load_nml( numtrc_cfg, 'namelist_trc_cfg' , numout, lwm ) 224 220 IF(lwm) CALL ctl_opn( numonr, 'output.namelist.trc', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 225 221 ! … … 253 249 ALLOCATE( ln_trdtrc(jptra) ) 254 250 ! 255 REWIND( numnat_ref ) ! Namelist namtrc_trd in reference namelist : Passive tracer trends256 251 READ ( numnat_ref, namtrc_trd, IOSTAT = ios, ERR = 905) 257 252 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist' ) 258 REWIND( numnat_cfg ) ! Namelist namtrc_trd in configuration namelist : Passive tracer trends259 253 READ ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 260 254 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/BENCH/MY_SRC/usrdef_nam.F90
r11536 r11960 61 61 !!---------------------------------------------------------------------- 62 62 ! 63 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)64 63 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 903 ) 65 64 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) … … 72 71 IF( nn_isize < 0 .AND. nn_jsize < 0 ) THEN 73 72 ! 74 REWIND( numnam_ref ) ! Namelist nammpp in reference namelist: mpi variables75 73 READ ( numnam_ref, nammpp, IOSTAT = ios, ERR = 901) 76 74 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in reference namelist' ) 77 75 ! 78 REWIND( numnam_cfg ) ! Namelist nammpp in configuration namelist: mpi variables79 76 READ ( numnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 80 77 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/BENCH/MY_SRC/zdfiwm.F90
r11949 r11960 405 405 !!---------------------------------------------------------------------- 406 406 ! 407 REWIND( numnam_ref ) ! Namelist namzdf_iwm in reference namelist : Wave-driven mixing408 407 READ ( numnam_ref, namzdf_iwm, IOSTAT = ios, ERR = 901) 409 408 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in reference namelist' ) 410 409 ! 411 REWIND( numnam_cfg ) ! Namelist namzdf_iwm in configuration namelist : Wave-driven mixing412 410 READ ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 ) 413 411 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/CANAL/MY_SRC/domvvl.F90
r11949 r11960 992 992 !!---------------------------------------------------------------------- 993 993 ! 994 REWIND( numnam_ref ) ! Namelist nam_vvl in reference namelist :995 994 READ ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 996 995 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist' ) 997 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run998 996 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 999 997 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/CANAL/MY_SRC/usrdef_nam.F90
r11899 r11960 84 84 !!---------------------------------------------------------------------- 85 85 ! 86 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)87 86 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 88 87 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/ICE_ADV1D/MY_SRC/usrdef_nam.F90
r11536 r11960 63 63 !!---------------------------------------------------------------------- 64 64 ! 65 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)66 65 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 67 66 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/ICE_ADV2D/MY_SRC/usrdef_nam.F90
r11536 r11960 63 63 !!---------------------------------------------------------------------- 64 64 ! 65 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)66 65 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 67 66 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90
r11536 r11960 63 63 !!---------------------------------------------------------------------- 64 64 ! 65 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)66 65 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 67 66 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/ISOMIP/MY_SRC/usrdef_nam.F90
r11536 r11960 64 64 !!---------------------------------------------------------------------- 65 65 ! 66 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)67 66 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 68 67 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90
r11536 r11960 60 60 !!---------------------------------------------------------------------- 61 61 ! 62 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)63 62 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 64 63 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/OVERFLOW/MY_SRC/usrdef_nam.F90
r11536 r11960 61 61 !!---------------------------------------------------------------------- 62 62 ! 63 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)64 63 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 65 64 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/VORTEX/MY_SRC/domvvl.F90
r11949 r11960 988 988 !!---------------------------------------------------------------------- 989 989 ! 990 REWIND( numnam_ref ) ! Namelist nam_vvl in reference namelist :991 990 READ ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 992 991 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist' ) 993 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run994 992 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 995 993 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/VORTEX/MY_SRC/usrdef_nam.F90
r11536 r11960 63 63 !!---------------------------------------------------------------------- 64 64 ! 65 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)66 65 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 67 66 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/tests/WAD/MY_SRC/usrdef_nam.F90
r11536 r11960 61 61 !!---------------------------------------------------------------------- 62 62 ! 63 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)64 63 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 65 64 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.