Changeset 12202
- Timestamp:
- 2019-12-12T09:59:50+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019
- Files:
-
- 148 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/cfgs/C1D_PAPA/MY_SRC/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/ABL/sbcabl.F90
r12179 r12202 77 77 !!--------------------------------------------------------------------- 78 78 79 REWIND( numnam_ref ) ! Namelist namsbc_abl in reference namelist : ABL parameters80 79 READ ( numnam_ref, namsbc_abl, IOSTAT = ios, ERR = 901 ) 81 80 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_abl in reference namelist' ) 82 81 ! 83 REWIND( numnam_cfg ) ! Namelist namsbc_abl in configuration namelist : ABL parameters84 82 READ ( numnam_cfg, namsbc_abl, IOSTAT = ios, ERR = 902 ) 85 83 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_abl in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/ICE/icealb.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icedia.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icedyn.F90
r11536 r12202 224 224 !!------------------------------------------------------------------- 225 225 ! 226 REWIND( numnam_ice_ref ) ! Namelist namdyn in reference namelist : Ice dynamics227 226 READ ( numnam_ice_ref, namdyn, IOSTAT = ios, ERR = 901) 228 227 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn in reference namelist' ) 229 REWIND( numnam_ice_cfg ) ! Namelist namdyn in configuration namelist : Ice dynamics230 228 READ ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 ) 231 229 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/ICE/icedyn_adv.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icedyn_rdgrft.F90
r11732 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icedyn_rhg.F90
r11536 r12202 113 113 !!------------------------------------------------------------------- 114 114 ! 115 REWIND( numnam_ice_ref ) ! Namelist namdyn_rhg in reference namelist : Ice dynamics116 115 READ ( numnam_ice_ref, namdyn_rhg, IOSTAT = ios, ERR = 901) 117 116 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in reference namelist' ) 118 REWIND( numnam_ice_cfg ) ! Namelist namdyn_rhg in configuration namelist : Ice dynamics119 117 READ ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 120 118 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/ICE/iceistate.F90
r11536 r12202 474 474 !!----------------------------------------------------------------------------- 475 475 ! 476 REWIND( numnam_ice_ref ) ! Namelist namini in reference namelist : Ice initial state477 476 READ ( numnam_ice_ref, namini, IOSTAT = ios, ERR = 901) 478 477 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namini in reference namelist' ) 479 REWIND( numnam_ice_cfg ) ! Namelist namini in configuration namelist : Ice initial state480 478 READ ( numnam_ice_cfg, namini, IOSTAT = ios, ERR = 902 ) 481 479 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namini in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/ICE/iceitd.F90
r11732 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icesbc.F90
r12154 r12202 290 290 !!------------------------------------------------------------------- 291 291 ! 292 REWIND( numnam_ice_ref ) ! Namelist namsbc in reference namelist : Ice dynamics293 292 READ ( numnam_ice_ref, namsbc, IOSTAT = ios, ERR = 901) 294 293 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist' ) 295 REWIND( numnam_ice_cfg ) ! Namelist namsbc in configuration namelist : Ice dynamics296 294 READ ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 297 295 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/ICE/icestp.F90
r11536 r12202 232 232 IF(lwp) WRITE(numout,*) '~~~~~~~~' 233 233 ! 234 ! ! Open the reference and configuration namelist files andnamelist output file235 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp)236 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp)237 IF(lwm) CALL ctl_opn( numoni , 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )234 ! ! Load the reference and configuration namelist files and open namelist output file 235 CALL load_nml( numnam_ice_ref, 'namelist_ice_ref', numout, lwm ) 236 CALL load_nml( numnam_ice_cfg, 'namelist_ice_cfg', numout, lwm ) 237 IF(lwm) CALL ctl_opn( numoni , 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 238 238 ! 239 239 CALL par_init ! set some ice run parameters … … 301 301 !!------------------------------------------------------------------- 302 302 ! 303 REWIND( numnam_ice_ref ) ! Namelist nampar in reference namelist : Parameters for ice304 303 READ ( numnam_ice_ref, nampar, IOSTAT = ios, ERR = 901) 305 304 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampar in reference namelist' ) 306 REWIND( numnam_ice_cfg ) ! Namelist nampar in configuration namelist : Parameters for ice307 305 READ ( numnam_ice_cfg, nampar, IOSTAT = ios, ERR = 902 ) 308 306 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampar in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/ICE/icethd.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icethd_da.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icethd_do.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icethd_pnd.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icethd_sal.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/ICE/icethd_zdf.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/NST/agrif_user.F90
r12191 r12202 724 724 !!-------------------------------------------------------------------------------------- 725 725 ! 726 REWIND( numnam_ref ) ! Namelist namagrif in reference namelist : AGRIF zoom727 726 READ ( numnam_ref, namagrif, IOSTAT = ios, ERR = 901) 728 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in reference namelist' ) 729 REWIND( numnam_cfg ) ! Namelist namagrif in configuration namelist : AGRIF zoom 727 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in reference namelist' ) 730 728 READ ( numnam_cfg, namagrif, IOSTAT = ios, ERR = 902 ) 731 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namagrif in configuration namelist' ) 729 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namagrif in configuration namelist' ) 730 732 731 IF(lwm) WRITE ( numond, namagrif ) 733 732 ! -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ASM/asminc.F90
r11536 r12202 145 145 ln_temnofreeze = .FALSE. 146 146 147 REWIND( numnam_ref ) ! Namelist nam_asminc in reference namelist : Assimilation increment148 147 READ ( numnam_ref, nam_asminc, IOSTAT = ios, ERR = 901) 149 148 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in reference namelist' ) 150 REWIND( numnam_cfg ) ! Namelist nam_asminc in configuration namelist : Assimilation increment151 149 READ ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 152 150 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/BDY/bdydta.F90
r12184 r12202 365 365 INTEGER :: ierror, ios ! 366 366 ! 367 INTEGER :: nbdy_rdstart, nbdy_loc 368 CHARACTER(LEN=50) :: cerrmsg ! error string 367 369 CHARACTER(len=3) :: cl3 ! 368 370 CHARACTER(len=100) :: cn_dir ! Root directory for location of data files … … 407 409 ! Read namelists 408 410 ! -------------- 409 REWIND(numnam_cfg)411 nbdy_rdstart = 1 410 412 DO jbdy = 1, nb_bdy 411 413 … … 413 415 WRITE(ctmp2, '(a,i2)') 'block nambdy_dta number ', jbdy 414 416 415 ! There is only one nambdy_dta block in namelist_ref -> use it for each bdy so we do a rewind 416 REWIND(numnam_ref) 417 ! There is only one nambdy_dta block in namelist_ref -> use it for each bdy so we read from the beginning 417 418 READ ( numnam_ref, nambdy_dta, IOSTAT = ios, ERR = 901) 418 419 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in reference namelist' ) … … 423 424 & .OR. ( dta_bdy(jbdy)%lneed_tra .AND. nn_tra_dta(jbdy) == 1 ) & 424 425 & .OR. ( dta_bdy(jbdy)%lneed_ice .AND. nn_ice_dta(jbdy) == 1 ) ) THEN 425 ! WARNING: we don't do a rewind here, each bdy reads its own nambdy_dta block one after another 426 READ ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 426 ! 427 ! Need to support possibility of reading more than one 428 ! nambdy_dta from the namelist_cfg internal file. 429 ! Do this by finding the jbdy'th occurence of nambdy_dta in the 430 ! character buffer as the starting point. 431 ! 432 nbdy_loc = INDEX( numnam_cfg( nbdy_rdstart: ), 'nambdy_dta' ) 433 IF( nbdy_loc .GT. 0 ) THEN 434 nbdy_rdstart = nbdy_rdstart + nbdy_loc 435 ELSE 436 WRITE(cerrmsg,'(A,I4,A)') 'Error: entry number ',jbdy,' of nambdy_dta not found' 437 ios = -1 438 CALL ctl_nam ( ios , cerrmsg ) 439 ENDIF 440 READ ( numnam_cfg( MAX( 1, nbdy_rdstart - 2 ): ), nambdy_dta, IOSTAT = ios, ERR = 902) 427 441 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist' ) 428 442 IF(lwm) WRITE( numond, nambdy_dta ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/BDY/bdyini.F90
r12184 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/BDY/bdytides.F90
r12184 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/C1D/c1d.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/C1D/dtauvd.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/C1D/dyndmp.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/CRS/crsini.F90
r11536 r12202 80 80 !--------------------------------------------------------- 81 81 ! 82 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run83 82 READ ( numnam_ref, namcrs, IOSTAT = ios, ERR = 901) 84 83 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in reference namelist' ) 85 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run86 84 READ ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 87 85 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DIA/dia25h.F90
r11536 r12202 53 53 !!---------------------------------------------------------------------- 54 54 ! 55 REWIND ( numnam_ref ) ! Read Namelist nam_dia25h in reference namelist : 25hour mean diagnostics56 55 READ ( numnam_ref, nam_dia25h, IOSTAT=ios, ERR= 901 ) 57 56 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_dia25h in reference namelist' ) 58 REWIND( numnam_cfg ) ! Namelist nam_dia25h in configuration namelist 25hour diagnostics59 57 READ ( numnam_cfg, nam_dia25h, IOSTAT = ios, ERR = 902 ) 60 58 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_dia25h in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DIA/diadct.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/DIA/diahsb.F90
r12166 r12202 365 365 WRITE(numout,*) '~~~~~~~~~~~~ ' 366 366 ENDIF 367 REWIND( numnam_ref ) ! Namelist namhsb in reference namelist368 367 READ ( numnam_ref, namhsb, IOSTAT = ios, ERR = 901) 369 368 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in reference namelist' ) 370 REWIND( numnam_cfg ) ! Namelist namhsb in configuration namelist371 369 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 372 370 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DIA/diaptr.F90
r12109 r12202 344 344 & iom_use( 'sophtvtr' ) .OR. iom_use( 'uocetr_vsum_cumul' ) ) l_diaptr = .TRUE. 345 345 346 346 READ ( numnam_ref, namptr, IOSTAT = ios, ERR = 901) 347 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in reference namelist' ) 348 ! 349 READ ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 350 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist' ) 351 IF(lwm) WRITE ( numond, namptr ) 352 347 353 IF(lwp) THEN ! Control print 348 354 WRITE(numout,*) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DIA/diatmb.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/DIU/diurnal_bulk.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/DOM/closea.F90
r12173 r12202 78 78 !!--------------------------------------------------------------------- 79 79 !! 80 REWIND( numnam_ref ) ! Namelist namclo in reference namelist : Lateral momentum boundary condition81 80 READ ( numnam_ref, namclo, IOSTAT = ios, ERR = 901 ) 82 81 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namclo in reference namelist') 83 REWIND( numnam_cfg ) ! Namelist namclo in configuration namelist : Lateral momentum boundary condition84 82 READ ( numnam_cfg, namclo, IOSTAT = ios, ERR = 902 ) 85 83 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namclo in configuration namelist') -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/domain.F90
r12172 r12202 298 298 ! 299 299 ! 300 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run301 300 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 302 301 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist' ) 303 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run304 302 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 305 303 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist' ) … … 395 393 #endif 396 394 397 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep)398 395 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 399 396 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist' ) 400 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep)401 397 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 402 398 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist' ) … … 426 422 #if defined key_netcdf4 427 423 ! ! NetCDF 4 case ("key_netcdf4" defined) 428 REWIND( numnam_ref ) ! Namelist namnc4 in reference namelist : NETCDF429 424 READ ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 430 425 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist' ) 431 REWIND( numnam_cfg ) ! Namelist namnc4 in configuration namelist : NETCDF432 426 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 433 427 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/dommsk.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/DOM/domvvl.F90
r12166 r12202 1019 1019 !!---------------------------------------------------------------------- 1020 1020 ! 1021 REWIND( numnam_ref ) ! Namelist nam_vvl in reference namelist :1022 1021 READ ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 1023 1022 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist' ) 1024 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run1025 1023 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 1026 1024 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/dtatsd.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/DYN/dynadv.F90
r11536 r12202 104 104 ENDIF 105 105 ! 106 REWIND( numnam_ref ) ! Namelist namdyn_adv in reference namelist : Momentum advection scheme107 106 READ ( numnam_ref, namdyn_adv, IOSTAT = ios, ERR = 901) 108 107 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in reference namelist' ) 109 REWIND( numnam_cfg ) ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme110 108 READ ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 111 109 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DYN/dynhpg.F90
r12166 r12202 152 152 !!---------------------------------------------------------------------- 153 153 ! 154 REWIND( numnam_ref ) ! Namelist namdyn_hpg in reference namelist : Hydrostatic pressure gradient155 154 READ ( numnam_ref, namdyn_hpg, IOSTAT = ios, ERR = 901) 156 155 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in reference namelist' ) 157 156 ! 158 REWIND( numnam_cfg ) ! Namelist namdyn_hpg in configuration namelist : Hydrostatic pressure gradient159 157 READ ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 160 158 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DYN/dynspg.F90
r12184 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/DYN/dynvor.F90
r11536 r12202 849 849 ENDIF 850 850 ! 851 REWIND( numnam_ref ) ! Namelist namdyn_vor in reference namelist : Vorticity scheme options852 851 READ ( numnam_ref, namdyn_vor, IOSTAT = ios, ERR = 901) 853 852 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in reference namelist' ) 854 REWIND( numnam_cfg ) ! Namelist namdyn_vor in configuration namelist : Vorticity scheme options855 853 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 856 854 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DYN/wet_dry.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/FLO/floats.F90
r11536 r12202 86 86 IF(lwp) WRITE(numout,*) '~~~~~~~' 87 87 88 REWIND( numnam_ref ) ! Namelist namflo in reference namelist : Floats89 88 READ ( numnam_ref, namflo, IOSTAT = ios, ERR = 901) 90 89 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namflo in reference namelist' ) 91 90 92 REWIND( numnam_cfg ) ! Namelist namflo in configuration namelist : Floats93 91 READ ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 94 92 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namflo in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ICB/icbini.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/IOM/in_out_manager.F90
r12154 r12202 142 142 INTEGER :: numnul = -1 !: logical unit for /dev/null 143 143 ! ! early output can be collected; do not change 144 INTEGER :: numnam_ref = -1 !: logical unit for reference namelist145 INTEGER :: numnam_cfg = -1 !: logical unit for configuration specific namelist146 144 INTEGER :: numond = -1 !: logical unit for Output Namelist Dynamics 147 INTEGER :: numnam_ice_ref = -1 !: logical unit for ice reference namelist148 INTEGER :: numnam_ice_cfg = -1 !: logical unit for ice reference namelist149 145 INTEGER :: numoni = -1 !: logical unit for Output Namelist Ice 150 146 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 151 147 INTEGER :: numrun = -1 !: logical unit for run statistics 152 148 INTEGER :: numdct_in = -1 !: logical unit for transports computing 153 INTEGER :: numdct_vol = -1 !: logical unit for vo ulume transports output154 INTEGER :: numdct_heat = -1 !: logical unit for heat 155 INTEGER :: numdct_salt = -1 !: logical unit for salt 149 INTEGER :: numdct_vol = -1 !: logical unit for volume transports output 150 INTEGER :: numdct_heat = -1 !: logical unit for heat transports output 151 INTEGER :: numdct_salt = -1 !: logical unit for salt transports output 156 152 INTEGER :: numfl = -1 !: logical unit for floats ascii output 157 153 INTEGER :: numflo = -1 !: logical unit for floats ascii output 154 ! 155 CHARACTER(LEN=:), ALLOCATABLE :: numnam_ref !: character buffer for reference namelist 156 CHARACTER(LEN=:), ALLOCATABLE :: numnam_cfg !: character buffer for configuration specific namelist 157 CHARACTER(LEN=:), ALLOCATABLE :: numnam_ice_ref !: character buffer for ice reference namelist 158 CHARACTER(LEN=:), ALLOCATABLE :: numnam_ice_cfg !: character buffer for ice configuration specific namelist 158 159 159 160 !!---------------------------------------------------------------------- -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ISF/isfstp.F90
r12143 r12202 289 289 !!---------------------------------------------------------------------- 290 290 ! 291 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs292 291 READ ( numnam_ref, namisf, IOSTAT = ios, ERR = 901) 293 292 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namisf in reference namelist' ) 294 293 ! 295 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs296 294 READ ( numnam_cfg, namisf, IOSTAT = ios, ERR = 902 ) 297 295 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namisf in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/LBC/lib_mpp.F90
r11536 r12202 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 … … 499 502 #endif 500 503 END SUBROUTINE mpp_delay_rcv 504 505 SUBROUTINE mpp_bcast_nml( cdnambuff , kleng ) 506 CHARACTER(LEN=:) , ALLOCATABLE, INTENT(INOUT) :: cdnambuff 507 INTEGER , INTENT(INOUT) :: kleng 508 !!---------------------------------------------------------------------- 509 !! *** routine mpp_bcast_nml *** 510 !! 511 !! ** Purpose : broadcast namelist character buffer 512 !! 513 !!---------------------------------------------------------------------- 514 !! 515 INTEGER :: iflag 516 !!---------------------------------------------------------------------- 517 ! 518 #if defined key_mpp_mpi 519 call MPI_BCAST(kleng, 1, MPI_INT, 0, mpi_comm_oce, iflag) 520 call MPI_BARRIER(mpi_comm_oce, iflag) 521 !$AGRIF_DO_NOT_TREAT 522 IF ( .NOT. ALLOCATED(cdnambuff) ) ALLOCATE( CHARACTER(LEN=kleng) :: cdnambuff ) 523 !$AGRIF_END_DO_NOT_TREAT 524 call MPI_BCAST(cdnambuff, kleng, MPI_CHARACTER, 0, mpi_comm_oce, iflag) 525 call MPI_BARRIER(mpi_comm_oce, iflag) 526 #endif 527 ! 528 END SUBROUTINE mpp_bcast_nml 501 529 502 530 … … 1068 1096 1069 1097 !!---------------------------------------------------------------------- 1070 !! ctl_stop, ctl_warn, get_unit, ctl_opn, ctl_nam routines1098 !! ctl_stop, ctl_warn, get_unit, ctl_opn, ctl_nam, load_nml routines 1071 1099 !!---------------------------------------------------------------------- 1072 1100 … … 1204 1232 & OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat , ERR=100, IOSTAT=iost ) 1205 1233 IF( iost == 0 ) THEN 1206 IF(ldwp ) THEN1234 IF(ldwp .AND. kout > 0) THEN 1207 1235 WRITE(kout,*) ' file : ', TRIM(clfile),' open ok' 1208 1236 WRITE(kout,*) ' unit = ', knum … … 1279 1307 END FUNCTION get_unit 1280 1308 1309 SUBROUTINE load_nml( cdnambuff , cdnamfile, kout, ldwp) 1310 CHARACTER(LEN=:) , ALLOCATABLE, INTENT(INOUT) :: cdnambuff 1311 CHARACTER(LEN=*), INTENT(IN ) :: cdnamfile 1312 CHARACTER(LEN=256) :: chline 1313 CHARACTER(LEN=1) :: csp 1314 INTEGER, INTENT(IN) :: kout 1315 LOGICAL, INTENT(IN) :: ldwp !: .true. only for the root broadcaster 1316 INTEGER :: itot, iun, iltc, inl, ios, itotsav 1317 ! 1318 !csp = NEW_LINE('A') 1319 ! a new line character is the best seperator but some systems (e.g.Cray) 1320 ! seem to terminate namelist reads from internal files early if they 1321 ! encounter new-lines. Use a single space for safety. 1322 csp = ' ' 1323 ! 1324 ! Check if the namelist buffer has already been allocated. Return if it has. 1325 ! 1326 IF ( ALLOCATED( cdnambuff ) ) RETURN 1327 IF( ldwp ) THEN 1328 ! 1329 ! Open namelist file 1330 ! 1331 CALL ctl_opn( iun, cdnamfile, 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, kout, ldwp ) 1332 ! 1333 ! First pass: count characters excluding comments and trimable white space 1334 ! 1335 itot=0 1336 10 READ(iun,'(A256)',END=20,ERR=20) chline 1337 iltc = LEN_TRIM(chline) 1338 IF ( iltc.GT.0 ) THEN 1339 inl = INDEX(chline, '!') 1340 IF( inl.eq.0 ) THEN 1341 itot = itot + iltc + 1 ! +1 for the newline character 1342 ELSEIF( inl.GT.0 .AND. LEN_TRIM( chline(1:inl-1) ).GT.0 ) THEN 1343 itot = itot + inl ! includes +1 for the newline character 1344 ENDIF 1345 ENDIF 1346 GOTO 10 1347 20 CONTINUE 1348 ! 1349 ! Allocate text cdnambuff for condensed namelist 1350 ! 1351 !$AGRIF_DO_NOT_TREAT 1352 ALLOCATE( CHARACTER(LEN=itot) :: cdnambuff ) 1353 !$AGRIF_END_DO_NOT_TREAT 1354 itotsav = itot 1355 ! 1356 ! Second pass: read and transfer pruned characters into cdnambuff 1357 ! 1358 REWIND(iun) 1359 itot=1 1360 30 READ(iun,'(A256)',END=40,ERR=40) chline 1361 iltc = LEN_TRIM(chline) 1362 IF ( iltc.GT.0 ) THEN 1363 inl = INDEX(chline, '!') 1364 IF( inl.eq.0 ) THEN 1365 inl = iltc 1366 ELSE 1367 inl = inl - 1 1368 ENDIF 1369 IF( inl.GT.0 .AND. LEN_TRIM( chline(1:inl) ).GT.0 ) THEN 1370 cdnambuff(itot:itot+inl-1) = chline(1:inl) 1371 WRITE( cdnambuff(itot+inl:itot+inl), '(a)' ) csp 1372 itot = itot + inl + 1 1373 ENDIF 1374 ENDIF 1375 GOTO 30 1376 40 CONTINUE 1377 itot = itot - 1 1378 IF( itotsav .NE. itot ) WRITE(*,*) 'WARNING in load_nml. Allocated ',itotsav,' for read buffer; but used ',itot 1379 ! 1380 ! Close namelist file 1381 ! 1382 CLOSE(iun) 1383 !write(*,'(32A)') cdnambuff 1384 ENDIF 1385 #if defined key_mpp_mpi 1386 CALL mpp_bcast_nml( cdnambuff, itot ) 1387 #endif 1388 END SUBROUTINE load_nml 1389 1390 1281 1391 !!---------------------------------------------------------------------- 1282 1392 END MODULE lib_mpp -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/LBC/mppini.F90
r11640 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/LDF/ldfdyn.F90
r11653 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/LDF/ldftra.F90
r12166 r12202 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' ) … … 510 508 ENDIF 511 509 ! 512 REWIND( numnam_ref ) ! Namelist namtra_eiv in reference namelist : eddy induced velocity param.513 510 READ ( numnam_ref, namtra_eiv, IOSTAT = ios, ERR = 901) 514 511 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_eiv in reference namelist' ) 515 512 ! 516 REWIND( numnam_cfg ) ! Namelist namtra_eiv in configuration namelist : eddy induced velocity param.517 513 READ ( numnam_cfg, namtra_eiv, IOSTAT = ios, ERR = 902 ) 518 514 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_eiv in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/OBS/diaobs.F90
r11536 r12202 201 201 202 202 ! Read namelist namobs : control observation diagnostics 203 REWIND( numnam_ref ) ! Namelist namobs in reference namelist204 203 READ ( numnam_ref, namobs, IOSTAT = ios, ERR = 901) 205 204 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobs in reference namelist' ) 206 REWIND( numnam_cfg ) ! Namelist namobs in configuration namelist207 205 READ ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 208 206 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namobs in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcapr.F90
r12154 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcblk.F90
r12192 r12202 178 178 ! 179 179 ! !** read bulk namelist 180 REWIND( numnam_ref ) !* Namelist namsbc_blk in reference namelist : bulk parameters181 180 READ ( numnam_ref, namsbc_blk, IOSTAT = ios, ERR = 901) 182 181 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_blk in reference namelist' ) 183 182 ! 184 REWIND( numnam_cfg ) !* Namelist namsbc_blk in configuration namelist : bulk parameters185 183 READ ( numnam_cfg, namsbc_blk, IOSTAT = ios, ERR = 902 ) 186 184 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_blk in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbccpl.F90
r12166 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcflx.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcice_cice.F90
r12154 r12202 762 762 sn_bot5 = FLD_N( 'botmeltn5_1m' , -1. , 'botmeltn5' , .true. , .true. , ' yearly' , '' , '' , '' ) 763 763 764 REWIND( numnam_ref ) ! Namelist namsbc_cice in reference namelist :765 764 READ ( numnam_ref, namsbc_cice, IOSTAT = ios, ERR = 901) 766 765 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in reference namelist' ) 767 766 768 REWIND( numnam_cfg ) ! Namelist namsbc_cice in configuration namelist : Parameters of the run769 767 READ ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 770 768 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcice_if.F90
r11536 r12202 74 74 ! ! ====================== ! 75 75 ! set file information 76 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file77 76 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 78 77 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist' ) 79 78 80 REWIND( numnam_cfg ) ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file81 79 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 82 80 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcmod.F90
r12172 r12202 110 110 ! 111 111 ! !** read Surface Module namelist 112 REWIND( numnam_ref ) !* Namelist namsbc in reference namelist : Surface boundary113 112 READ ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 114 113 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist' ) 115 REWIND( numnam_cfg ) !* Namelist namsbc in configuration namelist : Parameters of the run116 114 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 117 115 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcrnf.F90
r12172 r12202 275 275 ! ! ============ 276 276 ! 277 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs278 277 READ ( numnam_ref, namsbc_rnf, IOSTAT = ios, ERR = 901) 279 278 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in reference namelist' ) 280 279 281 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs282 280 READ ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 283 281 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcssr.F90
r12113 r12202 180 180 ENDIF 181 181 ! 182 REWIND( numnam_ref ) ! Namelist namsbc_ssr in reference namelist :183 182 READ ( numnam_ref, namsbc_ssr, IOSTAT = ios, ERR = 901) 184 183 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in reference namelist' ) 185 184 186 REWIND( numnam_cfg ) ! Namelist namsbc_ssr in configuration namelist :187 185 READ ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 188 186 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcwave.F90
r11536 r12202 395 395 !!--------------------------------------------------------------------- 396 396 ! 397 REWIND( numnam_ref ) ! Namelist namsbc_wave in reference namelist : File for drag coeff. from wave model398 397 READ ( numnam_ref, namsbc_wave, IOSTAT = ios, ERR = 901) 399 398 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in reference namelist' ) 400 399 401 REWIND( numnam_cfg ) ! Namelist namsbc_wave in configuration namelist : File for drag coeff. from wave model402 400 READ ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 403 401 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/STO/stopar.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/TDE/tide_mod.F90
r12065 r12202 132 132 sn_tide_cnames(:) = '' 133 133 ! Read Namelist nam_tide 134 REWIND( numnam_ref ) ! Namelist nam_tide in reference namelist : Tides135 134 READ ( numnam_ref, nam_tide, IOSTAT = ios, ERR = 901) 136 135 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in reference namelist' ) 137 136 ! 138 REWIND( numnam_cfg ) ! Namelist nam_tide in configuration namelist : Tides139 137 READ ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 140 138 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/TRA/eosbn2.F90
r11993 r12202 1235 1235 !!---------------------------------------------------------------------- 1236 1236 ! 1237 REWIND( numnam_ref ) ! Namelist nameos in reference namelist : equation of state1238 1237 READ ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 ) 1239 1238 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist' ) 1240 1239 ! 1241 REWIND( numnam_cfg ) ! Namelist nameos in configuration namelist : equation of state1242 1240 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 1243 1241 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/TRA/traadv.F90
r12109 r12202 195 195 ! 196 196 ! !== Namelist ==! 197 REWIND( numnam_ref ) ! Namelist namtra_adv in reference namelist : Tracer advection scheme198 197 READ ( numnam_ref, namtra_adv, IOSTAT = ios, ERR = 901) 199 198 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in reference namelist' ) 200 199 ! 201 REWIND( numnam_cfg ) ! Namelist namtra_adv in configuration namelist : Tracer advection scheme202 200 READ ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 203 201 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/TRA/trabbc.F90
r12109 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/TRA/trabbl.F90
r11536 r12202 483 483 !!---------------------------------------------------------------------- 484 484 ! 485 REWIND( numnam_ref ) ! Namelist nambbl in reference namelist : Bottom boundary layer scheme486 485 READ ( numnam_ref, nambbl, IOSTAT = ios, ERR = 901) 487 486 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist' ) 488 487 ! 489 REWIND( numnam_cfg ) ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme490 488 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 491 489 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/TRA/tradmp.F90
r11536 r12202 177 177 !!---------------------------------------------------------------------- 178 178 ! 179 REWIND( numnam_ref ) ! Namelist namtra_dmp in reference namelist : T & S relaxation180 179 READ ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 181 180 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist' ) 182 181 ! 183 REWIND( numnam_cfg ) ! Namelist namtra_dmp in configuration namelist : T & S relaxation184 182 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 185 183 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/TRA/tramle.F90
r11536 r12202 266 266 !!---------------------------------------------------------------------- 267 267 268 REWIND( numnam_ref ) ! Namelist namtra_mle in reference namelist : Tracer advection scheme269 268 READ ( numnam_ref, namtra_mle, IOSTAT = ios, ERR = 901) 270 269 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_mle in reference namelist' ) 271 270 272 REWIND( numnam_cfg ) ! Namelist namtra_mle in configuration namelist : Tracer advection scheme273 271 READ ( numnam_cfg, namtra_mle, IOSTAT = ios, ERR = 902 ) 274 272 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_mle in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/TRA/traqsr.F90
r11536 r12202 336 336 !!---------------------------------------------------------------------- 337 337 ! 338 REWIND( numnam_ref ) ! Namelist namtra_qsr in reference namelist339 338 READ ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901) 340 339 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist' ) 341 340 ! 342 REWIND( numnam_cfg ) ! Namelist namtra_qsr in configuration namelist343 341 READ ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 344 342 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/TRD/trdini.F90
r11536 r12202 46 46 !!---------------------------------------------------------------------- 47 47 ! 48 REWIND( numnam_ref ) ! Namelist namtrd in reference namelist : trends diagnostic49 48 READ ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901 ) 50 49 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist' ) 51 50 ! 52 REWIND( numnam_cfg ) ! Namelist namtrd in configuration namelist : trends diagnostic53 51 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 54 52 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/TRD/trdmxl.F90
r11536 r12202 732 732 !!---------------------------------------------------------------------- 733 733 ! 734 REWIND( numnam_ref ) ! Namelist namtrd_mxl in reference namelist : mixed layer trends diagnostic735 734 READ ( numnam_ref, namtrd_mxl, IOSTAT = ios, ERR = 901 ) 736 735 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in reference namelist' ) 737 736 738 REWIND( numnam_cfg ) ! Namelist namtrd_mxl in configuration namelist : mixed layer trends diagnostic739 737 READ ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 740 738 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/USR/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/ZDF/zdfdrg.F90
r11536 r12202 236 236 ! !== drag nature ==! 237 237 ! 238 REWIND( numnam_ref ) ! Namelist namdrg in reference namelist239 238 READ ( numnam_ref, namdrg, IOSTAT = ios, ERR = 901) 240 239 901 IF( ios /= 0 ) CALL ctl_nam( ios , 'namdrg in reference namelist' ) 241 REWIND( numnam_cfg ) ! Namelist namdrg in configuration namelist242 240 READ ( numnam_cfg, namdrg, IOSTAT = ios, ERR = 902 ) 243 241 902 IF( ios > 0 ) CALL ctl_nam( ios , 'namdrg in configuration namelist' ) … … 335 333 ! !== read namlist ==! 336 334 ! 337 REWIND( numnam_ref ) ! Namelist cl_namdrg in reference namelist338 335 IF(ll_top) READ ( numnam_ref, namdrg_top, IOSTAT = ios, ERR = 901) 339 336 IF(ll_bot) READ ( numnam_ref, namdrg_bot, IOSTAT = ios, ERR = 901) 340 337 901 IF( ios /= 0 ) CALL ctl_nam( ios , TRIM(cl_namref) ) 341 REWIND( numnam_cfg ) ! Namelist cd_namdrg in configuration namelist342 338 IF(ll_top) READ ( numnam_cfg, namdrg_top, IOSTAT = ios, ERR = 902 ) 343 339 IF(ll_bot) READ ( numnam_cfg, namdrg_bot, IOSTAT = ios, ERR = 902 ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ZDF/zdfgls.F90
r11536 r12202 857 857 !!---------------------------------------------------------- 858 858 ! 859 REWIND( numnam_ref ) ! Namelist namzdf_gls in reference namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme860 859 READ ( numnam_ref, namzdf_gls, IOSTAT = ios, ERR = 901) 861 860 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in reference namelist' ) 862 861 863 REWIND( numnam_cfg ) ! Namelist namzdf_gls in configuration namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme864 862 READ ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 865 863 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ZDF/zdfiwm.F90
r12154 r12202 421 421 !!---------------------------------------------------------------------- 422 422 ! 423 REWIND( numnam_ref ) ! Namelist namzdf_iwm in reference namelist : Wave-driven mixing424 423 READ ( numnam_ref, namzdf_iwm, IOSTAT = ios, ERR = 901) 425 424 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in reference namelist' ) 426 425 ! 427 REWIND( numnam_cfg ) ! Namelist namzdf_iwm in configuration namelist : Wave-driven mixing428 426 READ ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 ) 429 427 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ZDF/zdfosm.F90
r11536 r12202 1384 1384 !!---------------------------------------------------------------------- 1385 1385 ! 1386 REWIND( numnam_ref ) ! Namelist namzdf_osm in reference namelist : Osmosis ML model1387 1386 READ ( numnam_ref, namzdf_osm, IOSTAT = ios, ERR = 901) 1388 1387 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_osm in reference namelist' ) 1389 1388 1390 REWIND( numnam_cfg ) ! Namelist namzdf_tke in configuration namelist : Turbulent Kinetic Energy1391 1389 READ ( numnam_cfg, namzdf_osm, IOSTAT = ios, ERR = 902 ) 1392 1390 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_osm in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ZDF/zdfphy.F90
r11536 r12202 91 91 ! 92 92 ! !== Namelist ==! 93 REWIND( numnam_ref ) ! Namelist namzdf in reference namelist : Vertical mixing parameters94 93 READ ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901) 95 94 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist' ) 96 95 ! 97 REWIND( numnam_cfg ) ! Namelist namzdf in reference namelist : Vertical mixing parameters98 96 READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 99 97 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/ZDF/zdfric.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/ZDF/zdftke.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/OCE/module_example
r11536 r12202 150 150 !!---------------------------------------------------------------------- 151 151 ! 152 REWIND( numnam_ref ) ! Namelist namexa in reference namelist : Example153 152 READ ( numnam_ref, namexa, IOSTAT = ios, ERR = 901) 154 153 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namexa in reference namelist' ) 155 154 ! 156 REWIND( numnam_cfg ) ! Namelist namexa in configuration namelist : Example157 155 READ ( numnam_cfg, namexa, IOSTAT = ios, ERR = 902 ) 158 156 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namexa in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/nemogcm.F90
r12184 r12202 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' ) … … 626 622 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 627 623 IF( numrun /= -1 ) CLOSE( numrun ) ! run statistics file 628 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist629 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist630 624 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 631 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist632 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist633 625 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 634 626 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OFF/dtadyn.F90
r11536 r12202 225 225 !!---------------------------------------------------------------------- 226 226 ! 227 REWIND( numnam_ref ) ! Namelist namdta_dyn in reference namelist : Offline: init. of dynamical data228 227 READ ( numnam_ref, namdta_dyn, IOSTAT = ios, ERR = 901) 229 228 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdta_dyn in reference namelist' ) 230 REWIND( numnam_cfg ) ! Namelist namdta_dyn in configuration namelist : Offline: init. of dynamical data231 229 READ ( numnam_cfg, namdta_dyn, IOSTAT = ios, ERR = 902 ) 232 230 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdta_dyn in configuration namelist' ) … … 475 473 !!---------------------------------------------------------------------- 476 474 ! 477 REWIND( numnam_ref ) ! Namelist namdta_dyn in reference namelist : Offline: init. of dynamical data478 475 READ ( numnam_ref, namdta_dyn, IOSTAT = ios, ERR = 901) 479 476 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdta_dyn in reference namelist' ) 480 REWIND( numnam_cfg ) ! Namelist namdta_dyn in configuration namelist : Offline: init. of dynamical data481 477 READ ( numnam_cfg, namdta_dyn, IOSTAT = ios, ERR = 902 ) 482 478 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdta_dyn in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OFF/nemogcm.F90
r12026 r12202 194 194 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 195 195 ! open reference and configuration namelist files 196 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)197 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)196 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 197 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 198 198 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 199 199 ! open /dev/null file to be able to supress output write easily … … 204 204 ! !--------------------! 205 205 ! 206 REWIND( numnam_ref ) ! Namelist namctl in reference namelist207 206 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 208 207 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 209 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist210 208 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 211 209 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 262 260 ! !------------------------------------! 263 261 ! 264 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist265 262 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 266 263 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 267 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist268 264 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 269 265 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 448 444 ! 449 445 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 450 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist451 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist452 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file453 446 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 454 447 ! -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/SAO/nemogcm.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/SAO/sao_data.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/SAS/nemogcm.F90
r11536 r12202 230 230 ! open ocean.output as soon as possible to get all output prints (including errors messages) 231 231 IF( lk_oasis ) THEN 232 IF( lwm ) CALL ctl_opn( numout, 'sas.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )232 IF( lwm ) CALL ctl_opn( numout, 'sas.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 233 233 ! open reference and configuration namelist files 234 CALL ctl_opn( numnam_ref, 'namelist_sas_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)235 CALL ctl_opn( numnam_cfg, 'namelist_sas_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)236 IF( lwm ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )234 CALL load_nml( numnam_ref, 'namelist_sas_ref', -1, lwm ) 235 CALL load_nml( numnam_cfg, 'namelist_sas_cfg', -1, lwm ) 236 IF( lwm ) CALL ctl_opn( numond, 'output.namelist_sas.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 237 237 ELSE 238 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )238 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 239 239 ! open reference and configuration namelist files 240 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)241 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)242 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )240 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 241 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 242 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 243 243 ENDIF 244 244 ! open /dev/null file to be able to supress output write easily … … 249 249 ! !--------------------! 250 250 ! 251 REWIND( numnam_ref ) ! Namelist namctl in reference namelist252 251 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 253 252 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 254 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist255 253 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 256 254 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 311 309 ! !------------------------------------! 312 310 ! 313 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist314 311 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 315 312 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 316 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist317 313 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 318 314 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 489 485 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 490 486 IF( numrun /= -1 ) CLOSE( numrun ) ! run statistics file 491 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist492 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist493 487 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 494 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist495 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist496 488 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 497 489 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/SAS/sbcssm.F90
r11536 r12202 186 186 ENDIF 187 187 ! 188 REWIND( numnam_ref ) ! Namelist namsbc_sas in reference namelist : Input fields189 188 READ ( numnam_ref, namsbc_sas, IOSTAT = ios, ERR = 901) 190 189 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_sas in reference namelist' ) 191 REWIND( numnam_cfg ) ! Namelist namsbc_sas in configuration namelist : Input fields192 190 READ ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 ) 193 191 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/AGE/trcnam_age.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/TOP/C14/trcnam_c14.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/TOP/CFC/trcnam_cfc.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P2Z/p2zbio.F90
r11536 r12202 402 402 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~' 403 403 ! 404 REWIND( numnatp_ref ) ! Namelist namlobphy in reference namelist : Lobster biological parameters405 404 READ ( numnatp_ref, namlobphy, IOSTAT = ios, ERR = 901) 406 405 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist' ) 407 REWIND( numnatp_cfg ) ! Namelist namlobphy in configuration namelist : Lobster biological parameters408 406 READ ( numnatp_cfg, namlobphy, IOSTAT = ios, ERR = 902 ) 409 407 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist' ) … … 419 417 ENDIF 420 418 421 REWIND( numnatp_ref ) ! Namelist namlobnut in reference namelist : Lobster nutriments parameters422 419 READ ( numnatp_ref, namlobnut, IOSTAT = ios, ERR = 903) 423 420 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist' ) 424 REWIND( numnatp_cfg ) ! Namelist namlobnut in configuration namelist : Lobster nutriments parameters425 421 READ ( numnatp_cfg, namlobnut, IOSTAT = ios, ERR = 904 ) 426 422 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist' ) … … 436 432 ENDIF 437 433 438 REWIND( numnatp_ref ) ! Namelist namlobzoo in reference namelist : Lobster zooplankton parameters439 434 READ ( numnatp_ref, namlobzoo, IOSTAT = ios, ERR = 905) 440 435 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist' ) 441 REWIND( numnatp_cfg ) ! Namelist namlobzoo in configuration namelist : Lobster zooplankton parameters442 436 READ ( numnatp_cfg, namlobzoo, IOSTAT = ios, ERR = 906 ) 443 437 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist' ) … … 458 452 ENDIF 459 453 460 REWIND( numnatp_ref ) ! Namelist namlobdet in reference namelist : Lobster detritus parameters461 454 READ ( numnatp_ref, namlobdet, IOSTAT = ios, ERR = 907) 462 455 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist' ) 463 REWIND( numnatp_cfg ) ! Namelist namlobdet in configuration namelist : Lobster detritus parameters464 456 READ ( numnatp_cfg, namlobdet, IOSTAT = ios, ERR = 908 ) 465 457 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist' ) … … 473 465 ENDIF 474 466 475 REWIND( numnatp_ref ) ! Namelist namlobdom in reference namelist : Lobster DOM breakdown rate476 467 READ ( numnatp_ref, namlobdom, IOSTAT = ios, ERR = 909) 477 468 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist' ) 478 REWIND( numnatp_cfg ) ! Namelist namlobdom in configuration namelist : Lobster DOM breakdown rate479 469 READ ( numnatp_cfg, namlobdom, IOSTAT = ios, ERR = 910 ) 480 470 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P2Z/p2zopt.F90
r11536 r12202 159 159 !!---------------------------------------------------------------------- 160 160 161 REWIND( numnatp_ref ) ! Namelist namlobopt in reference namelist : Lobster options162 161 READ ( numnatp_ref, namlobopt, IOSTAT = ios, ERR = 901) 163 162 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist' ) 164 163 165 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options166 164 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 167 165 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist' ) … … 181 179 ENDIF 182 180 ! 183 REWIND( numnatp_ref ) ! Namelist namlobrat in reference namelist : Lobster ratios184 181 READ ( numnatp_ref, namlobrat, IOSTAT = ios, ERR = 903) 185 182 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist' ) 186 183 187 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios188 184 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 189 185 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P2Z/p2zsed.F90
r11536 r12202 132 132 !!---------------------------------------------------------------------- 133 133 ! 134 REWIND( numnatp_ref ) ! Namelist namlobsed in reference namelist : Lobster sediments135 134 READ ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 136 135 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist' ) 137 REWIND( numnatp_cfg ) ! Namelist namlobsed in configuration namelist : Lobster sediments138 136 READ ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 139 137 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zbc.F90
r12111 r12202 229 229 ENDIF 230 230 ! !* set file information 231 REWIND( numnatp_ref ) ! Namelist nampisbc in reference namelist : Pisces external sources of nutrients232 231 READ ( numnatp_ref, nampisbc, IOSTAT = ios, ERR = 901) 233 232 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbc in reference namelist' ) 234 REWIND( numnatp_cfg ) ! Namelist nampisbc in configuration namelist : Pisces external sources of nutrients235 233 READ ( numnatp_cfg, nampisbc, IOSTAT = ios, ERR = 902 ) 236 234 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisbc in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zfechem.F90
r12110 r12202 254 254 ENDIF 255 255 ! 256 REWIND( numnatp_ref ) ! Namelist nampisfer in reference namelist : Pisces iron chemistry257 256 READ ( numnatp_ref, nampisfer, IOSTAT = ios, ERR = 901) 258 257 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in reference namelist' ) 259 REWIND( numnatp_cfg ) ! Namelist nampisfer in configuration namelist : Pisces iron chemistry260 258 READ ( numnatp_cfg, nampisfer, IOSTAT = ios, ERR = 902 ) 261 259 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zflx.F90
r12109 r12202 246 246 ENDIF 247 247 ! 248 REWIND( numnatp_ref ) ! Namelist nampisext in reference namelist : Pisces atm. conditions249 248 READ ( numnatp_ref, nampisext, IOSTAT = ios, ERR = 901) 250 249 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist' ) 251 REWIND( numnatp_cfg ) ! Namelist nampisext in configuration namelist : Pisces atm. conditions252 250 READ ( numnatp_cfg, nampisext, IOSTAT = ios, ERR = 902 ) 253 251 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist' ) … … 327 325 ENDIF 328 326 ! 329 REWIND( numnatp_ref ) ! Namelist nampisatm in reference namelist : Pisces atm. sea level pressure file330 327 READ ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901) 331 328 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist' ) 332 REWIND( numnatp_cfg ) ! Namelist nampisatm in configuration namelist : Pisces atm. sea level pressure file333 329 READ ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 334 330 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zligand.F90
r11536 r12202 125 125 WRITE(numout,*) '~~~~~~~~~~~~~~~' 126 126 ENDIF 127 REWIND( numnatp_ref ) ! Namelist nampislig in reference namelist : Pisces remineralization128 127 READ ( numnatp_ref, nampislig, IOSTAT = ios, ERR = 901) 129 128 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislig in reference namelist' ) 130 REWIND( numnatp_cfg ) ! Namelist nampislig in configuration namelist : Pisces remineralization131 129 READ ( numnatp_cfg, nampislig, IOSTAT = ios, ERR = 902 ) 132 130 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislig in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zlim.F90
r11536 r12202 252 252 ENDIF 253 253 ! 254 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters255 254 READ ( numnatp_ref, namp4zlim, IOSTAT = ios, ERR = 901) 256 255 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zlim in reference namelist' ) 257 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters258 256 READ ( numnatp_cfg, namp4zlim, IOSTAT = ios, ERR = 902 ) 259 257 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zlim in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zlys.F90
r11536 r12202 162 162 ENDIF 163 163 ! 164 REWIND( numnatp_ref ) ! Namelist nampiscal in reference namelist : Pisces CaCO3 dissolution165 164 READ ( numnatp_ref, nampiscal, IOSTAT = ios, ERR = 901) 166 165 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist' ) 167 REWIND( numnatp_cfg ) ! Namelist nampiscal in configuration namelist : Pisces CaCO3 dissolution168 166 READ ( numnatp_cfg, nampiscal, IOSTAT = ios, ERR = 902 ) 169 167 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zmeso.F90
r11536 r12202 290 290 ENDIF 291 291 ! 292 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton293 292 READ ( numnatp_ref, namp4zmes, IOSTAT = ios, ERR = 901) 294 293 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist' ) 295 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton296 294 READ ( numnatp_cfg, namp4zmes, IOSTAT = ios, ERR = 902 ) 297 295 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zmicro.F90
r11536 r12202 243 243 ENDIF 244 244 ! 245 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton246 245 READ ( numnatp_ref, namp4zzoo, IOSTAT = ios, ERR = 901) 247 246 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zzoo in reference namelist' ) 248 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton249 247 READ ( numnatp_cfg, namp4zzoo, IOSTAT = ios, ERR = 902 ) 250 248 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zmort.F90
r11536 r12202 227 227 ENDIF 228 228 ! 229 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton230 229 READ ( numnatp_ref, namp4zmort, IOSTAT = ios, ERR = 901) 231 230 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmort in reference namelist' ) 232 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton233 231 READ ( numnatp_cfg, namp4zmort, IOSTAT = ios, ERR = 902 ) 234 232 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmort in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zopt.F90
r11536 r12202 400 400 WRITE(numout,*) '~~~~~~~~~~~~ ' 401 401 ENDIF 402 REWIND( numnatp_ref ) ! Namelist nampisopt in reference namelist : Pisces attenuation coef. and PAR403 402 READ ( numnatp_ref, nampisopt, IOSTAT = ios, ERR = 901) 404 403 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist' ) 405 REWIND( numnatp_cfg ) ! Namelist nampisopt in configuration namelist : Pisces attenuation coef. and PAR406 404 READ ( numnatp_cfg, nampisopt, IOSTAT = ios, ERR = 902 ) 407 405 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zpoc.F90
r11536 r12202 497 497 ENDIF 498 498 ! 499 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization500 499 READ ( numnatp_ref, nampispoc, IOSTAT = ios, ERR = 901) 501 500 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampispoc in reference namelist' ) 502 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization503 501 READ ( numnatp_cfg, nampispoc, IOSTAT = ios, ERR = 902 ) 504 502 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampispoc in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zprod.F90
r11536 r12202 490 490 ENDIF 491 491 ! 492 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production493 492 READ ( numnatp_ref, namp4zprod, IOSTAT = ios, ERR = 901) 494 493 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zprod in reference namelist' ) 495 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production496 494 READ ( numnatp_cfg, namp4zprod, IOSTAT = ios, ERR = 902 ) 497 495 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zprod in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zrem.F90
r11536 r12202 327 327 ENDIF 328 328 ! 329 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization330 329 READ ( numnatp_ref, nampisrem, IOSTAT = ios, ERR = 901) 331 330 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in reference namelist' ) 332 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization333 331 READ ( numnatp_cfg, nampisrem, IOSTAT = ios, ERR = 902 ) 334 332 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zsed.F90
r12111 r12202 381 381 ENDIF 382 382 ! !* set file information 383 REWIND( numnatp_ref ) ! Namelist nampissed in reference namelist : PISCES sediment384 383 READ ( numnatp_ref, nampissed, IOSTAT = ios, ERR = 901) 385 384 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissed in reference namelist' ) 386 REWIND( numnatp_cfg ) ! Namelist nampissbc in configuration namelist : PISCES sediment387 385 READ ( numnatp_cfg, nampissed, IOSTAT = ios, ERR = 902 ) 388 386 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampissed in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p4zsms.F90
r12110 r12202 262 262 ENDIF 263 263 264 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables265 264 READ ( numnatp_ref, nampisbio, IOSTAT = ios, ERR = 901) 266 265 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist' ) 267 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables268 266 READ ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 ) 269 267 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist' ) … … 293 291 294 292 295 REWIND( numnatp_ref ) ! Namelist nampisdmp in reference namelist : Pisces damping296 293 READ ( numnatp_ref, nampisdmp, IOSTAT = ios, ERR = 905) 297 294 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist' ) 298 REWIND( numnatp_cfg ) ! Namelist nampisdmp in configuration namelist : Pisces damping299 295 READ ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 ) 300 296 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist' ) … … 308 304 ENDIF 309 305 310 REWIND( numnatp_ref ) ! Namelist nampismass in reference namelist : Pisces mass conservation check311 306 READ ( numnatp_ref, nampismass, IOSTAT = ios, ERR = 907) 312 307 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist' ) 313 REWIND( numnatp_cfg ) ! Namelist nampismass in configuration namelist : Pisces mass conservation check314 308 READ ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 ) 315 309 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p5zlim.F90
r11536 r12202 448 448 !!---------------------------------------------------------------------- 449 449 ! 450 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters451 450 READ ( numnatp_ref, namp5zlim, IOSTAT = ios, ERR = 901) 452 451 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist' ) 453 452 ! 454 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters455 453 READ ( numnatp_cfg, namp5zlim, IOSTAT = ios, ERR = 902 ) 456 454 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist' ) … … 489 487 ENDIF 490 488 491 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters492 489 READ ( numnatp_ref, namp5zquota, IOSTAT = ios, ERR = 903) 493 490 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisquota in reference namelist' ) 494 491 ! 495 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters496 492 READ ( numnatp_cfg, namp5zquota, IOSTAT = ios, ERR = 904 ) 497 493 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisquota in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p5zmeso.F90
r11536 r12202 407 407 !!---------------------------------------------------------------------- 408 408 ! 409 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton410 409 READ ( numnatp_ref, namp5zmes, IOSTAT = ios, ERR = 901) 411 410 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist' ) 412 411 ! 413 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton414 412 READ ( numnatp_cfg, namp5zmes, IOSTAT = ios, ERR = 902 ) 415 413 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p5zmicro.F90
r11536 r12202 349 349 !!---------------------------------------------------------------------- 350 350 ! 351 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton352 351 READ ( numnatp_ref, namp5zzoo, IOSTAT = ios, ERR = 901) 353 352 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zzoo in reference namelist' ) 354 353 ! 355 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton356 354 READ ( numnatp_cfg, namp5zzoo, IOSTAT = ios, ERR = 902 ) 357 355 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zzoo in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p5zmort.F90
r11536 r12202 286 286 !!---------------------------------------------------------------------- 287 287 288 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton289 288 READ ( numnatp_ref, namp5zmort, IOSTAT = ios, ERR = 901) 290 289 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zmort in reference namelist' ) 291 290 292 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton293 291 READ ( numnatp_cfg, namp5zmort, IOSTAT = ios, ERR = 902 ) 294 292 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zmort in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/P4Z/p5zprod.F90
r11536 r12202 582 582 !!---------------------------------------------------------------------- 583 583 584 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production585 584 READ ( numnatp_ref, namp5zprod, IOSTAT = ios, ERR = 901) 586 585 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zprod in reference namelist' ) 587 586 588 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production589 587 READ ( numnatp_cfg, namp5zprod, IOSTAT = ios, ERR = 902 ) 590 588 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/SED/sedini.F90
r11536 r12202 406 406 !!---------------------------------------------------------------------- 407 407 408 INTEGER :: numnamsed_ref = -1 !! Logical units fornamelist sediment409 INTEGER :: numnamsed_cfg = -1 !! Logical units fornamelist sediment408 CHARACTER(:), ALLOCATABLE :: numnamsed_ref !! Character buffer for reference namelist sediment 409 CHARACTER(:), ALLOCATABLE :: numnamsed_cfg !! Character buffer for configuration namelist sediment 410 410 INTEGER :: ios ! Local integer output status for namelist read 411 411 CHARACTER(LEN=20) :: clname … … 452 452 IF(lwp) WRITE(numsed,*) ' sed_init_nam : read SEDIMENT namelist' 453 453 IF(lwp) WRITE(numsed,*) ' ~~~~~~~~~~~~~~' 454 CALL ctl_opn( numnamsed_ref, TRIM( clname )//'_ref', 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)455 CALL ctl_opn( numnamsed_cfg, TRIM( clname )//'_cfg', 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)454 CALL load_nml( numnamsed_ref, TRIM( clname )//'_ref', numout, lwm ) 455 CALL load_nml( numnamsed_cfg, TRIM( clname )//'_cfg', numout, lwm ) 456 456 457 457 nitsed000 = nittrc000 458 458 nitsedend = nitend 459 459 ! Namelist nam_run 460 REWIND( numnamsed_ref ) ! Namelist nam_run in reference namelist : Pisces variables461 460 READ ( numnamsed_ref, nam_run, IOSTAT = ios, ERR = 901) 462 461 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in reference namelist' ) 463 462 464 REWIND( numnamsed_cfg ) ! Namelist nam_run in reference namelist : Pisces variables465 463 READ ( numnamsed_cfg, nam_run, IOSTAT = ios, ERR = 902) 466 464 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in configuration namelist' ) … … 474 472 IF ( ln_p5z .AND. ln_sed_2way ) CALL ctl_stop( '2 ways coupling with sediment cannot be activated with PISCES-QUOTA' ) 475 473 476 REWIND( numnamsed_ref ) ! Namelist nam_geom in reference namelist : Pisces variables477 474 READ ( numnamsed_ref, nam_geom, IOSTAT = ios, ERR = 903) 478 475 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in reference namelist' ) 479 476 480 REWIND( numnamsed_cfg ) ! Namelist nam_geom in reference namelist : Pisces variables481 477 READ ( numnamsed_cfg, nam_geom, IOSTAT = ios, ERR = 904) 482 478 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in configuration namelist' ) … … 497 493 dtsed = r2dttrc 498 494 499 REWIND( numnamsed_ref ) ! Namelist nam_trased in reference namelist : Pisces variables500 495 READ ( numnamsed_ref, nam_trased, IOSTAT = ios, ERR = 905) 501 496 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in reference namelist' ) 502 497 503 REWIND( numnamsed_cfg ) ! Namelist nam_trased in reference namelist : Pisces variables504 498 READ ( numnamsed_cfg, nam_trased, IOSTAT = ios, ERR = 906) 505 499 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in configuration namelist' ) … … 530 524 ENDIF 531 525 532 REWIND( numnamsed_ref ) ! Namelist nam_diased in reference namelist : Pisces variables533 526 READ ( numnamsed_ref, nam_diased, IOSTAT = ios, ERR = 907) 534 527 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in reference namelist' ) 535 528 536 REWIND( numnamsed_cfg ) ! Namelist nam_diased in reference namelist : Pisces variables537 529 READ ( numnamsed_cfg, nam_diased, IOSTAT = ios, ERR = 908) 538 530 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in configuration namelist' ) … … 572 564 ! Inorganic chemistry parameters 573 565 !---------------------------------- 574 REWIND( numnamsed_ref ) ! Namelist nam_inorg in reference namelist : Pisces variables575 566 READ ( numnamsed_ref, nam_inorg, IOSTAT = ios, ERR = 909) 576 567 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in reference namelist' ) 577 568 578 REWIND( numnamsed_cfg ) ! Namelist nam_inorg in reference namelist : Pisces variables579 569 READ ( numnamsed_cfg, nam_inorg, IOSTAT = ios, ERR = 910) 580 570 910 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in configuration namelist' ) … … 598 588 ! Additional parameter linked to POC/O2/No3/Po4 599 589 !---------------------------------------------- 600 REWIND( numnamsed_ref ) ! Namelist nam_poc in reference namelist : Pisces variables601 590 READ ( numnamsed_ref, nam_poc, IOSTAT = ios, ERR = 911) 602 591 911 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in reference namelist' ) 603 592 604 REWIND( numnamsed_cfg ) ! Namelist nam_poc in reference namelist : Pisces variables605 593 READ ( numnamsed_cfg, nam_poc, IOSTAT = ios, ERR = 912) 606 594 912 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in configuration namelist' ) … … 650 638 ! Bioturbation parameter 651 639 !------------------------ 652 REWIND( numnamsed_ref ) ! Namelist nam_btb in reference namelist : Pisces variables653 640 READ ( numnamsed_ref, nam_btb, IOSTAT = ios, ERR = 913) 654 641 913 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in reference namelist' ) 655 642 656 REWIND( numnamsed_cfg ) ! Namelist nam_btb in reference namelist : Pisces variables657 643 READ ( numnamsed_cfg, nam_btb, IOSTAT = ios, ERR = 914) 658 644 914 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in configuration namelist' ) … … 671 657 ! Initial value (t=0) for sediment pore water and solid components 672 658 !---------------------------------------------------------------- 673 REWIND( numnamsed_ref ) ! Namelist nam_rst in reference namelist : Pisces variables674 659 READ ( numnamsed_ref, nam_rst, IOSTAT = ios, ERR = 915) 675 660 915 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in reference namelist' ) 676 661 677 REWIND( numnamsed_cfg ) ! Namelist nam_rst in reference namelist : Pisces variables678 662 READ ( numnamsed_cfg, nam_rst, IOSTAT = ios, ERR = 916) 679 663 916 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in configuration namelist' ) … … 686 670 nn_dtsed = nn_dttrc 687 671 688 CLOSE( numnamsed_cfg )689 CLOSE( numnamsed_ref )690 672 691 673 END SUBROUTINE sed_init_nam -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/sms_pisces.F90
r12110 r12202 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_r12072_MERGE_OPTION2_2019/src/TOP/PISCES/trcnam_pisces.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/TOP/TRP/trcadv.F90
r11536 r12202 164 164 ! 165 165 ! !== Namelist ==! 166 REWIND( numnat_ref ) ! namtrc_adv in reference namelist167 166 READ ( numnat_ref, namtrc_adv, IOSTAT = ios, ERR = 901) 168 167 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in reference namelist' ) 169 REWIND( numnat_cfg ) ! namtrc_adv in configuration namelist170 168 READ ( numnat_cfg, namtrc_adv, IOSTAT = ios, ERR = 902 ) 171 169 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/TRP/trcdmp.F90
r11536 r12202 181 181 !!---------------------------------------------------------------------- 182 182 ! 183 REWIND( numnat_ref ) ! Namelist namtrc_dmp in reference namelist : Passive tracers newtonian damping184 183 READ ( numnat_ref, namtrc_dmp, IOSTAT = ios, ERR = 909) 185 184 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in reference namelist' ) 186 REWIND( numnat_cfg ) ! Namelist namtrc_dmp in configuration namelist : Passive tracers newtonian damping187 185 READ ( numnat_cfg, namtrc_dmp, IOSTAT = ios, ERR = 910) 188 186 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/TRP/trcldf.F90
r11536 r12202 143 143 ENDIF 144 144 ! 145 REWIND( numnat_ref ) ! namtrc_ldf in reference namelist146 145 READ ( numnat_ref, namtrc_ldf, IOSTAT = ios, ERR = 903) 147 146 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in reference namelist' ) 148 147 ! 149 REWIND( numnat_cfg ) ! namtrc_ldf in configuration namelist150 148 READ ( numnat_cfg, namtrc_ldf, IOSTAT = ios, ERR = 904 ) 151 149 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/TRP/trcrad.F90
r11536 r12202 87 87 !!---------------------------------------------------------------------- 88 88 ! 89 REWIND( numnat_ref ) ! namtrc_rad in reference namelist90 89 READ ( numnat_ref, namtrc_rad, IOSTAT = ios, ERR = 907) 91 90 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in reference namelist' ) 92 REWIND( numnat_cfg ) ! namtrc_rad in configuration namelist93 91 READ ( numnat_cfg, namtrc_rad, IOSTAT = ios, ERR = 908 ) 94 92 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_rad in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/TRP/trcsink.F90
r11536 r12202 216 216 !!---------------------------------------------------------------------- 217 217 ! 218 REWIND( numnat_ref ) ! namtrc_rad in reference namelist219 218 READ ( numnat_ref, namtrc_snk, IOSTAT = ios, ERR = 907) 220 219 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_snk in reference namelist' ) 221 REWIND( numnat_cfg ) ! namtrc_rad in configuration namelist222 220 READ ( numnat_cfg, namtrc_snk, IOSTAT = ios, ERR = 908 ) 223 221 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_snk in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/trc.F90
r12110 r12202 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_r12072_MERGE_OPTION2_2019/src/TOP/trcbc.F90
r12110 r12202 120 120 ! 121 121 ! Read Boundary Conditions Namelists 122 REWIND( numnat_ref ) ! Namelist namtrc_bc in reference namelist : Passive tracer data structure123 122 READ ( numnat_ref, namtrc_bc, IOSTAT = ios, ERR = 901) 124 123 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bc in reference namelist' ) 125 REWIND( numnat_cfg ) ! Namelist namtrc_bc in configuration namelist : Passive tracer data structure126 124 READ ( numnat_cfg, namtrc_bc, IOSTAT = ios, ERR = 902 ) 127 125 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bc in configuration namelist' ) … … 129 127 130 128 IF ( ln_bdy ) THEN 131 REWIND( numnat_ref ) ! Namelist namtrc_bdy in reference namelist : Passive tracer data structure132 129 READ ( numnat_ref, namtrc_bdy, IOSTAT = ios, ERR = 903) 133 130 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in reference namelist' ) … … 135 132 cn_trc (2:jp_bdy) = cn_trc (1) 136 133 cn_trc_dflt(2:jp_bdy) = cn_trc_dflt(1) 137 REWIND( numnat_cfg ) ! Namelist namtrc_bdy in configuration namelist : Passive tracer data structure138 134 READ ( numnat_cfg, namtrc_bdy, IOSTAT = ios, ERR = 904 ) 139 135 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/TOP/trcdta.F90
r12110 r12202 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_r12072_MERGE_OPTION2_2019/src/TOP/trcice.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/src/TOP/trcnam.F90
r12110 r12202 108 108 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 109 109 ! 110 CALL ctl_opn( numnat_ref, 'namelist_top_ref' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)111 CALL ctl_opn( numnat_cfg, 'namelist_top_cfg' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)110 CALL load_nml( numnat_ref, 'namelist_top_ref' , numout, lwm ) 111 CALL load_nml( numnat_cfg, 'namelist_top_cfg' , numout, lwm ) 112 112 IF(lwm) CALL ctl_opn( numont, 'output.namelist.top', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 113 113 ! 114 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables115 114 READ ( numnat_ref, namtrc_run, IOSTAT = ios, ERR = 901) 116 115 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 117 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables118 116 READ ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 119 117 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) … … 158 156 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 159 157 160 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables161 158 READ ( numnat_ref, namtrc, IOSTAT = ios, ERR = 901) 162 159 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 163 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables164 160 READ ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 165 161 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) … … 229 225 IF( ll_cfc .OR. ln_c14 ) THEN 230 226 ! ! Open namelist files 231 CALL ctl_opn( numtrc_ref, 'namelist_trc_ref' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)232 CALL ctl_opn( numtrc_cfg, 'namelist_trc_cfg' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)227 CALL load_nml( numtrc_ref, 'namelist_trc_ref' , numout, lwm ) 228 CALL load_nml( numtrc_cfg, 'namelist_trc_cfg' , numout, lwm ) 233 229 IF(lwm) CALL ctl_opn( numonr, 'output.namelist.trc', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 234 230 ! … … 262 258 ALLOCATE( ln_trdtrc(jptra) ) 263 259 ! 264 REWIND( numnat_ref ) ! Namelist namtrc_trd in reference namelist : Passive tracer trends265 260 READ ( numnat_ref, namtrc_trd, IOSTAT = ios, ERR = 905) 266 261 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist' ) 267 REWIND( numnat_cfg ) ! Namelist namtrc_trd in configuration namelist : Passive tracer trends268 262 READ ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 269 263 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/BENCH/MY_SRC/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/tests/BENCH/MY_SRC/zdfiwm.F90
r11536 r12202 404 404 !!---------------------------------------------------------------------- 405 405 ! 406 REWIND( numnam_ref ) ! Namelist namzdf_iwm in reference namelist : Wave-driven mixing407 406 READ ( numnam_ref, namzdf_iwm, IOSTAT = ios, ERR = 901) 408 407 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in reference namelist' ) 409 408 ! 410 REWIND( numnam_cfg ) ! Namelist namzdf_iwm in configuration namelist : Wave-driven mixing411 409 READ ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 ) 412 410 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/CANAL/MY_SRC/domvvl.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/tests/CANAL/MY_SRC/usrdef_nam.F90
r11899 r12202 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_r12072_MERGE_OPTION2_2019/tests/ICE_ADV1D/MY_SRC/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/tests/ICE_ADV2D/MY_SRC/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/tests/ISOMIP+/MY_SRC/dtatsd.F90
r11889 r12202 67 67 ierr0 = 0 ; ierr1 = 0 ; ierr2 = 0 ; ierr3 = 0 68 68 ! 69 REWIND( numnam_ref ) ! Namelist namtsd in reference namelist :70 69 READ ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 71 70 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in reference namelist', lwp ) 72 REWIND( numnam_cfg ) ! Namelist namtsd in configuration namelist : Parameters of the run73 71 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 74 72 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/ISOMIP+/MY_SRC/eosbn2.F90
r11889 r12202 1366 1366 !!---------------------------------------------------------------------- 1367 1367 ! 1368 REWIND( numnam_ref ) ! Namelist nameos in reference namelist : equation of state1369 1368 READ ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 ) 1370 1369 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist', lwp ) 1371 1370 ! 1372 REWIND( numnam_cfg ) ! Namelist nameos in configuration namelist : equation of state1373 1371 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 1374 1372 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/ISOMIP+/MY_SRC/isfstp.F90
r12062 r12202 289 289 !!---------------------------------------------------------------------- 290 290 ! 291 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs292 291 READ ( numnam_ref, namisf, IOSTAT = ios, ERR = 901) 293 292 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namisf in reference namelist', lwp ) 294 293 ! 295 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs296 294 READ ( numnam_cfg, namisf, IOSTAT = ios, ERR = 902 ) 297 295 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namisf in configuration namelist', lwp ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/ISOMIP+/MY_SRC/tradmp.F90
r11889 r12202 177 177 !!---------------------------------------------------------------------- 178 178 ! 179 REWIND( numnam_ref ) ! Namelist namtra_dmp in reference namelist : T & S relaxation180 179 READ ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 181 180 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwp ) 182 181 ! 183 REWIND( numnam_cfg ) ! Namelist namtra_dmp in configuration namelist : T & S relaxation184 182 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 185 183 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/ISOMIP/MY_SRC/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/tests/LOCK_EXCHANGE/MY_SRC/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/tests/OVERFLOW/MY_SRC/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/tests/STATION_ASF/MY_SRC/nemogcm.F90
r11831 r12202 188 188 ! 189 189 ! open ocean.output as soon as possible to get all output prints (including errors messages) 190 IF( lwm ) CALL ctl_opn( numout,'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )190 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 191 191 ! open reference and configuration namelist files 192 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)193 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)194 IF( lwm ) CALL ctl_opn( numond,'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )192 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 193 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 194 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 195 195 ! open /dev/null file to be able to supress output write easily 196 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. )196 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 197 197 ! 198 198 ! !--------------------! … … 200 200 ! !--------------------! 201 201 ! 202 REWIND( numnam_ref ) ! Namelist namctl in reference namelist 202 203 203 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 204 204 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 205 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist206 205 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 207 206 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) … … 258 257 ! !------------------------------------! 259 258 ! 260 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist261 259 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 262 260 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 263 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist264 261 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 265 262 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/STATION_ASF/MY_SRC/sbcssm.F90
r11831 r12202 186 186 ENDIF 187 187 ! 188 REWIND( numnam_ref ) ! Namelist namsbc_sas in reference namelist : Input fields189 188 READ ( numnam_ref, namsbc_sas, IOSTAT = ios, ERR = 901) 190 189 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_sas in reference namelist' ) 191 REWIND( numnam_cfg ) ! Namelist namsbc_sas in configuration namelist : Input fields192 190 READ ( numnam_cfg, namsbc_sas, IOSTAT = ios, ERR = 902 ) 193 191 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_sas in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/STATION_ASF/MY_SRC/usrdef_nam.F90
r11930 r12202 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_r12072_MERGE_OPTION2_2019/tests/VORTEX/MY_SRC/domvvl.F90
r12166 r12202 1018 1018 !!---------------------------------------------------------------------- 1019 1019 ! 1020 REWIND( numnam_ref ) ! Namelist nam_vvl in reference namelist :1021 1020 READ ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 1022 1021 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist' ) 1023 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run1024 1022 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 1025 1023 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist' ) -
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/tests/VORTEX/MY_SRC/usrdef_nam.F90
r11536 r12202 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_r12072_MERGE_OPTION2_2019/tests/WAD/MY_SRC/usrdef_nam.F90
r11536 r12202 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.