- Timestamp:
- 2019-10-12T16:08:18+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP
- Files:
-
- 40 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/AGE/trcnam_age.F90
r10069 r11692 56 56 REWIND( numnat_ref ) ! Namelist namagedate in reference namelist : AGE parameters 57 57 READ ( numnat_ref, namage, IOSTAT = ios, ERR = 901) 58 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist' , lwp)58 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namage in reference namelist' ) 59 59 REWIND( numnat_cfg ) ! Namelist namagedate in configuration namelist : AGE parameters 60 60 READ ( numnat_cfg, namage, IOSTAT = ios, ERR = 902 ) 61 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist' , lwp)61 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namage in configuration namelist' ) 62 62 IF(lwm) WRITE ( numont, namage ) 63 63 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/C14/trcnam_c14.F90
r10069 r11692 63 63 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist : 64 64 READ ( numtrc_ref, namc14_typ, IOSTAT = ios, ERR = 901) 65 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_typ in reference namelist' , lwp)65 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_typ in reference namelist' ) 66 66 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist 67 67 READ ( numtrc_cfg, namc14_typ, IOSTAT = ios, ERR = 902) 68 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_typ in configuration namelist' , lwp)68 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_typ in configuration namelist' ) 69 69 IF(lwm) WRITE ( numonr, namc14_typ ) 70 70 ! … … 80 80 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist : 81 81 READ ( numtrc_ref, namc14_sbc, IOSTAT = ios, ERR = 903) 82 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_sbc in reference namelist' , lwp)82 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_sbc in reference namelist' ) 83 83 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist 84 84 READ ( numtrc_cfg, namc14_sbc, IOSTAT = ios, ERR = 904) 85 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_sbc in configuration namelist' , lwp)85 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_sbc in configuration namelist' ) 86 86 IF(lwm) WRITE( numonr, namc14_sbc ) 87 87 ! … … 96 96 REWIND( numtrc_ref ) ! Namelist namc14_typ in reference namelist : 97 97 READ ( numtrc_ref, namc14_fcg, IOSTAT = ios, ERR = 905) 98 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_fcg in reference namelist' , lwp)98 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14_fcg in reference namelist' ) 99 99 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist 100 100 READ ( numtrc_cfg, namc14_fcg, IOSTAT = ios, ERR = 906) 101 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_fcg in configuration namelist' , lwp)101 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namc14_fcg in configuration namelist' ) 102 102 IF(lwm) WRITE ( numonr, namc14_fcg ) 103 103 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/CFC/trcnam_cfc.F90
r10068 r11692 53 53 REWIND( numtrc_ref ) ! Namelist namcfcdate in reference namelist : CFC parameters 54 54 READ ( numtrc_ref, namcfc, IOSTAT = ios, ERR = 901) 55 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in reference namelist' , lwp)55 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfc in reference namelist' ) 56 56 REWIND( numtrc_cfg ) ! Namelist namcfcdate in configuration namelist : CFC parameters 57 57 READ ( numtrc_cfg, namcfc, IOSTAT = ios, ERR = 902 ) 58 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfc in configuration namelist' , lwp)58 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfc in configuration namelist' ) 59 59 IF(lwm) WRITE( numonr, namcfc ) 60 60 IF(lwm) CALL FLUSH ( numonr ) ! flush output namelist CFC -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P2Z/p2zbio.F90
r10425 r11692 404 404 REWIND( numnatp_ref ) ! Namelist namlobphy in reference namelist : Lobster biological parameters 405 405 READ ( numnatp_ref, namlobphy, IOSTAT = ios, ERR = 901) 406 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist' , lwp)406 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist' ) 407 407 REWIND( numnatp_cfg ) ! Namelist namlobphy in configuration namelist : Lobster biological parameters 408 408 READ ( numnatp_cfg, namlobphy, IOSTAT = ios, ERR = 902 ) 409 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist' , lwp)409 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist' ) 410 410 IF(lwm) WRITE ( numonp, namlobphy ) 411 411 ! … … 421 421 REWIND( numnatp_ref ) ! Namelist namlobnut in reference namelist : Lobster nutriments parameters 422 422 READ ( numnatp_ref, namlobnut, IOSTAT = ios, ERR = 903) 423 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist' , lwp)423 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist' ) 424 424 REWIND( numnatp_cfg ) ! Namelist namlobnut in configuration namelist : Lobster nutriments parameters 425 425 READ ( numnatp_cfg, namlobnut, IOSTAT = ios, ERR = 904 ) 426 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist' , lwp)426 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist' ) 427 427 IF(lwm) WRITE ( numonp, namlobnut ) 428 428 … … 438 438 REWIND( numnatp_ref ) ! Namelist namlobzoo in reference namelist : Lobster zooplankton parameters 439 439 READ ( numnatp_ref, namlobzoo, IOSTAT = ios, ERR = 905) 440 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist' , lwp)440 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist' ) 441 441 REWIND( numnatp_cfg ) ! Namelist namlobzoo in configuration namelist : Lobster zooplankton parameters 442 442 READ ( numnatp_cfg, namlobzoo, IOSTAT = ios, ERR = 906 ) 443 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist' , lwp)443 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist' ) 444 444 IF(lwm) WRITE ( numonp, namlobzoo ) 445 445 … … 460 460 REWIND( numnatp_ref ) ! Namelist namlobdet in reference namelist : Lobster detritus parameters 461 461 READ ( numnatp_ref, namlobdet, IOSTAT = ios, ERR = 907) 462 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist' , lwp)462 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist' ) 463 463 REWIND( numnatp_cfg ) ! Namelist namlobdet in configuration namelist : Lobster detritus parameters 464 464 READ ( numnatp_cfg, namlobdet, IOSTAT = ios, ERR = 908 ) 465 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist' , lwp)465 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist' ) 466 466 IF(lwm) WRITE ( numonp, namlobdet ) 467 467 … … 475 475 REWIND( numnatp_ref ) ! Namelist namlobdom in reference namelist : Lobster DOM breakdown rate 476 476 READ ( numnatp_ref, namlobdom, IOSTAT = ios, ERR = 909) 477 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist' , lwp)477 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist' ) 478 478 REWIND( numnatp_cfg ) ! Namelist namlobdom in configuration namelist : Lobster DOM breakdown rate 479 479 READ ( numnatp_cfg, namlobdom, IOSTAT = ios, ERR = 910 ) 480 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist' , lwp)480 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist' ) 481 481 IF(lwm) WRITE ( numonp, namlobdom ) 482 482 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P2Z/p2zopt.F90
r10068 r11692 161 161 REWIND( numnatp_ref ) ! Namelist namlobopt in reference namelist : Lobster options 162 162 READ ( numnatp_ref, namlobopt, IOSTAT = ios, ERR = 901) 163 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist' , lwp)163 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist' ) 164 164 165 165 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options 166 166 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 167 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist' , lwp)167 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist' ) 168 168 IF(lwm) WRITE ( numonp, namlobopt ) 169 169 … … 183 183 REWIND( numnatp_ref ) ! Namelist namlobrat in reference namelist : Lobster ratios 184 184 READ ( numnatp_ref, namlobrat, IOSTAT = ios, ERR = 903) 185 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist' , lwp)185 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist' ) 186 186 187 187 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios 188 188 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 189 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist' , lwp)189 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist' ) 190 190 IF(lwm) WRITE ( numonp, namlobrat ) 191 191 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P2Z/p2zsed.F90
r10068 r11692 134 134 REWIND( numnatp_ref ) ! Namelist namlobsed in reference namelist : Lobster sediments 135 135 READ ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 136 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist' , lwp)136 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist' ) 137 137 REWIND( numnatp_cfg ) ! Namelist namlobsed in configuration namelist : Lobster sediments 138 138 READ ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 139 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist' , lwp)139 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist' ) 140 140 IF(lwm) WRITE ( numonp, namlobsed ) 141 141 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zfechem.F90
r10416 r11692 256 256 REWIND( numnatp_ref ) ! Namelist nampisfer in reference namelist : Pisces iron chemistry 257 257 READ ( numnatp_ref, nampisfer, IOSTAT = ios, ERR = 901) 258 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in reference namelist' , lwp)258 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in reference namelist' ) 259 259 REWIND( numnatp_cfg ) ! Namelist nampisfer in configuration namelist : Pisces iron chemistry 260 260 READ ( numnatp_cfg, nampisfer, IOSTAT = ios, ERR = 902 ) 261 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist' , lwp)261 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist' ) 262 262 IF(lwm) WRITE( numonp, nampisfer ) 263 263 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zflx.F90
r10425 r11692 241 241 REWIND( numnatp_ref ) ! Namelist nampisext in reference namelist : Pisces atm. conditions 242 242 READ ( numnatp_ref, nampisext, IOSTAT = ios, ERR = 901) 243 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist' , lwp)243 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist' ) 244 244 REWIND( numnatp_cfg ) ! Namelist nampisext in configuration namelist : Pisces atm. conditions 245 245 READ ( numnatp_cfg, nampisext, IOSTAT = ios, ERR = 902 ) 246 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist' , lwp)246 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist' ) 247 247 IF(lwm) WRITE ( numonp, nampisext ) 248 248 ! … … 322 322 REWIND( numnatp_ref ) ! Namelist nampisatm in reference namelist : Pisces atm. sea level pressure file 323 323 READ ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901) 324 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist' , lwp)324 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist' ) 325 325 REWIND( numnatp_cfg ) ! Namelist nampisatm in configuration namelist : Pisces atm. sea level pressure file 326 326 READ ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 327 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist' , lwp)327 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist' ) 328 328 IF(lwm) WRITE ( numonp, nampisatm ) 329 329 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zligand.F90
r10416 r11692 127 127 REWIND( numnatp_ref ) ! Namelist nampislig in reference namelist : Pisces remineralization 128 128 READ ( numnatp_ref, nampislig, IOSTAT = ios, ERR = 901) 129 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislig in reference namelist' , lwp)129 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislig in reference namelist' ) 130 130 REWIND( numnatp_cfg ) ! Namelist nampislig in configuration namelist : Pisces remineralization 131 131 READ ( numnatp_cfg, nampislig, IOSTAT = ios, ERR = 902 ) 132 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislig in configuration namelist' , lwp)132 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislig in configuration namelist' ) 133 133 IF(lwm) WRITE ( numonp, nampislig ) 134 134 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zlim.F90
r10425 r11692 254 254 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 255 255 READ ( numnatp_ref, namp4zlim, IOSTAT = ios, ERR = 901) 256 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zlim in reference namelist' , lwp)256 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zlim in reference namelist' ) 257 257 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters 258 258 READ ( numnatp_cfg, namp4zlim, IOSTAT = ios, ERR = 902 ) 259 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zlim in configuration namelist' , lwp)259 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zlim in configuration namelist' ) 260 260 IF(lwm) WRITE( numonp, namp4zlim ) 261 261 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zlys.F90
r10069 r11692 164 164 REWIND( numnatp_ref ) ! Namelist nampiscal in reference namelist : Pisces CaCO3 dissolution 165 165 READ ( numnatp_ref, nampiscal, IOSTAT = ios, ERR = 901) 166 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist' , lwp)166 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist' ) 167 167 REWIND( numnatp_cfg ) ! Namelist nampiscal in configuration namelist : Pisces CaCO3 dissolution 168 168 READ ( numnatp_cfg, nampiscal, IOSTAT = ios, ERR = 902 ) 169 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist' , lwp)169 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist' ) 170 170 IF(lwm) WRITE( numonp, nampiscal ) 171 171 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zmeso.F90
r10367 r11692 292 292 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton 293 293 READ ( numnatp_ref, namp4zmes, IOSTAT = ios, ERR = 901) 294 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist' , lwp)294 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmes in reference namelist' ) 295 295 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 296 296 READ ( numnatp_cfg, namp4zmes, IOSTAT = ios, ERR = 902 ) 297 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist' , lwp)297 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmes in configuration namelist' ) 298 298 IF(lwm) WRITE( numonp, namp4zmes ) 299 299 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zmicro.F90
r10374 r11692 245 245 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton 246 246 READ ( numnatp_ref, namp4zzoo, IOSTAT = ios, ERR = 901) 247 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zzoo in reference namelist' , lwp)247 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zzoo in reference namelist' ) 248 248 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton 249 249 READ ( numnatp_cfg, namp4zzoo, IOSTAT = ios, ERR = 902 ) 250 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist' , lwp)250 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zzoo in configuration namelist' ) 251 251 IF(lwm) WRITE( numonp, namp4zzoo ) 252 252 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zmort.F90
r10227 r11692 229 229 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton 230 230 READ ( numnatp_ref, namp4zmort, IOSTAT = ios, ERR = 901) 231 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmort in reference namelist' , lwp)231 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zmort in reference namelist' ) 232 232 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton 233 233 READ ( numnatp_cfg, namp4zmort, IOSTAT = ios, ERR = 902 ) 234 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmort in configuration namelist' , lwp)234 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zmort in configuration namelist' ) 235 235 IF(lwm) WRITE( numonp, namp4zmort ) 236 236 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zopt.F90
r10522 r11692 402 402 REWIND( numnatp_ref ) ! Namelist nampisopt in reference namelist : Pisces attenuation coef. and PAR 403 403 READ ( numnatp_ref, nampisopt, IOSTAT = ios, ERR = 901) 404 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist' , lwp)404 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist' ) 405 405 REWIND( numnatp_cfg ) ! Namelist nampisopt in configuration namelist : Pisces attenuation coef. and PAR 406 406 READ ( numnatp_cfg, nampisopt, IOSTAT = ios, ERR = 902 ) 407 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist' , lwp)407 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist' ) 408 408 IF(lwm) WRITE ( numonp, nampisopt ) 409 409 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zpoc.F90
r11114 r11692 499 499 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization 500 500 READ ( numnatp_ref, nampispoc, IOSTAT = ios, ERR = 901) 501 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampispoc in reference namelist' , lwp)501 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampispoc in reference namelist' ) 502 502 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization 503 503 READ ( numnatp_cfg, nampispoc, IOSTAT = ios, ERR = 902 ) 504 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampispoc in configuration namelist' , lwp)504 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampispoc in configuration namelist' ) 505 505 IF(lwm) WRITE( numonp, nampispoc ) 506 506 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zprod.F90
r11118 r11692 492 492 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production 493 493 READ ( numnatp_ref, namp4zprod, IOSTAT = ios, ERR = 901) 494 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zprod in reference namelist' , lwp)494 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp4zprod in reference namelist' ) 495 495 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production 496 496 READ ( numnatp_cfg, namp4zprod, IOSTAT = ios, ERR = 902 ) 497 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zprod in configuration namelist' , lwp)497 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp4zprod in configuration namelist' ) 498 498 IF(lwm) WRITE( numonp, namp4zprod ) 499 499 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zrem.F90
r10425 r11692 329 329 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization 330 330 READ ( numnatp_ref, nampisrem, IOSTAT = ios, ERR = 901) 331 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in reference namelist' , lwp)331 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in reference namelist' ) 332 332 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization 333 333 READ ( numnatp_cfg, nampisrem, IOSTAT = ios, ERR = 902 ) 334 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist' , lwp)334 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist' ) 335 335 IF(lwm) WRITE( numonp, nampisrem ) 336 336 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zsbc.F90
r10869 r11692 232 232 REWIND( numnatp_ref ) ! Namelist nampissbc in reference namelist : Pisces external sources of nutrients 233 233 READ ( numnatp_ref, nampissbc, IOSTAT = ios, ERR = 901) 234 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in reference namelist' , lwp)234 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in reference namelist' ) 235 235 REWIND( numnatp_cfg ) ! Namelist nampissbc in configuration namelist : Pisces external sources of nutrients 236 236 READ ( numnatp_cfg, nampissbc, IOSTAT = ios, ERR = 902 ) 237 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist' , lwp)237 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist' ) 238 238 IF(lwm) WRITE ( numonp, nampissbc ) 239 239 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p4zsms.F90
r10425 r11692 203 203 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables 204 204 READ ( numnatp_ref, nampisbio, IOSTAT = ios, ERR = 901) 205 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist' , lwp)205 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist' ) 206 206 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables 207 207 READ ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 ) 208 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist' , lwp)208 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist' ) 209 209 IF(lwm) WRITE( numonp, nampisbio ) 210 210 ! … … 234 234 REWIND( numnatp_ref ) ! Namelist nampisdmp in reference namelist : Pisces damping 235 235 READ ( numnatp_ref, nampisdmp, IOSTAT = ios, ERR = 905) 236 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist' , lwp)236 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist' ) 237 237 REWIND( numnatp_cfg ) ! Namelist nampisdmp in configuration namelist : Pisces damping 238 238 READ ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 ) 239 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist' , lwp)239 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist' ) 240 240 IF(lwm) WRITE( numonp, nampisdmp ) 241 241 ! … … 249 249 REWIND( numnatp_ref ) ! Namelist nampismass in reference namelist : Pisces mass conservation check 250 250 READ ( numnatp_ref, nampismass, IOSTAT = ios, ERR = 907) 251 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist' , lwp)251 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist' ) 252 252 REWIND( numnatp_cfg ) ! Namelist nampismass in configuration namelist : Pisces mass conservation check 253 253 READ ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 ) 254 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist' , lwp)254 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist' ) 255 255 IF(lwm) WRITE( numonp, nampismass ) 256 256 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p5zlim.F90
r10425 r11692 450 450 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 451 451 READ ( numnatp_ref, namp5zlim, IOSTAT = ios, ERR = 901) 452 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist' , lwp)452 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist' ) 453 453 ! 454 454 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters 455 455 READ ( numnatp_cfg, namp5zlim, IOSTAT = ios, ERR = 902 ) 456 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist' , lwp)456 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist' ) 457 457 IF(lwm) WRITE ( numonp, namp5zlim ) 458 458 ! … … 491 491 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 492 492 READ ( numnatp_ref, namp5zquota, IOSTAT = ios, ERR = 903) 493 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisquota in reference namelist' , lwp)493 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisquota in reference namelist' ) 494 494 ! 495 495 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters 496 496 READ ( numnatp_cfg, namp5zquota, IOSTAT = ios, ERR = 904 ) 497 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisquota in configuration namelist' , lwp)497 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisquota in configuration namelist' ) 498 498 IF(lwm) WRITE ( numonp, namp5zquota ) 499 499 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p5zmeso.F90
r10362 r11692 409 409 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton 410 410 READ ( numnatp_ref, namp5zmes, IOSTAT = ios, ERR = 901) 411 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist' , lwp)411 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist' ) 412 412 ! 413 413 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 414 414 READ ( numnatp_cfg, namp5zmes, IOSTAT = ios, ERR = 902 ) 415 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist' , lwp)415 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist' ) 416 416 IF(lwm) WRITE ( numonp, namp5zmes ) 417 417 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p5zmicro.F90
r10362 r11692 351 351 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton 352 352 READ ( numnatp_ref, namp5zzoo, IOSTAT = ios, ERR = 901) 353 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zzoo in reference namelist' , lwp)353 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zzoo in reference namelist' ) 354 354 ! 355 355 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton 356 356 READ ( numnatp_cfg, namp5zzoo, IOSTAT = ios, ERR = 902 ) 357 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zzoo in configuration namelist' , lwp)357 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zzoo in configuration namelist' ) 358 358 IF(lwm) WRITE ( numonp, namp5zzoo ) 359 359 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p5zmort.F90
r10362 r11692 288 288 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton 289 289 READ ( numnatp_ref, namp5zmort, IOSTAT = ios, ERR = 901) 290 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zmort in reference namelist' , lwp)290 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zmort in reference namelist' ) 291 291 292 292 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton 293 293 READ ( numnatp_cfg, namp5zmort, IOSTAT = ios, ERR = 902 ) 294 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zmort in configuration namelist' , lwp)294 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zmort in configuration namelist' ) 295 295 IF(lwm) WRITE ( numonp, namp5zmort ) 296 296 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/P4Z/p5zprod.F90
r10873 r11692 584 584 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production 585 585 READ ( numnatp_ref, namp5zprod, IOSTAT = ios, ERR = 901) 586 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zprod in reference namelist' , lwp)586 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namp5zprod in reference namelist' ) 587 587 588 588 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production 589 589 READ ( numnatp_cfg, namp5zprod, IOSTAT = ios, ERR = 902 ) 590 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist' , lwp)590 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namp5zprod in configuration namelist' ) 591 591 IF(lwm) WRITE ( numonp, namp5zprod ) 592 592 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/SED/sedini.F90
r10362 r11692 460 460 REWIND( numnamsed_ref ) ! Namelist nam_run in reference namelist : Pisces variables 461 461 READ ( numnamsed_ref, nam_run, IOSTAT = ios, ERR = 901) 462 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in reference namelist' , lwp)462 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in reference namelist' ) 463 463 464 464 REWIND( numnamsed_cfg ) ! Namelist nam_run in reference namelist : Pisces variables 465 465 READ ( numnamsed_cfg, nam_run, IOSTAT = ios, ERR = 902) 466 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in configuration namelist' , lwp)466 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in configuration namelist' ) 467 467 468 468 IF (lwp) THEN … … 476 476 REWIND( numnamsed_ref ) ! Namelist nam_geom in reference namelist : Pisces variables 477 477 READ ( numnamsed_ref, nam_geom, IOSTAT = ios, ERR = 903) 478 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in reference namelist' , lwp)478 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in reference namelist' ) 479 479 480 480 REWIND( numnamsed_cfg ) ! Namelist nam_geom in reference namelist : Pisces variables 481 481 READ ( numnamsed_cfg, nam_geom, IOSTAT = ios, ERR = 904) 482 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in configuration namelist' , lwp)482 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in configuration namelist' ) 483 483 484 484 IF (lwp) THEN … … 499 499 REWIND( numnamsed_ref ) ! Namelist nam_trased in reference namelist : Pisces variables 500 500 READ ( numnamsed_ref, nam_trased, IOSTAT = ios, ERR = 905) 501 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in reference namelist' , lwp)501 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in reference namelist' ) 502 502 503 503 REWIND( numnamsed_cfg ) ! Namelist nam_trased in reference namelist : Pisces variables 504 504 READ ( numnamsed_cfg, nam_trased, IOSTAT = ios, ERR = 906) 505 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in configuration namelist' , lwp)505 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in configuration namelist' ) 506 506 507 507 DO jn = 1, jpsol … … 532 532 REWIND( numnamsed_ref ) ! Namelist nam_diased in reference namelist : Pisces variables 533 533 READ ( numnamsed_ref, nam_diased, IOSTAT = ios, ERR = 907) 534 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in reference namelist' , lwp)534 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in reference namelist' ) 535 535 536 536 REWIND( numnamsed_cfg ) ! Namelist nam_diased in reference namelist : Pisces variables 537 537 READ ( numnamsed_cfg, nam_diased, IOSTAT = ios, ERR = 908) 538 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in configuration namelist' , lwp)538 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in configuration namelist' ) 539 539 540 540 DO jn = 1, jpdia3dsed … … 574 574 REWIND( numnamsed_ref ) ! Namelist nam_inorg in reference namelist : Pisces variables 575 575 READ ( numnamsed_ref, nam_inorg, IOSTAT = ios, ERR = 909) 576 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in reference namelist' , lwp)576 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in reference namelist' ) 577 577 578 578 REWIND( numnamsed_cfg ) ! Namelist nam_inorg in reference namelist : Pisces variables 579 579 READ ( numnamsed_cfg, nam_inorg, IOSTAT = ios, ERR = 910) 580 910 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in configuration namelist' , lwp)580 910 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in configuration namelist' ) 581 581 582 582 IF (lwp) THEN … … 600 600 REWIND( numnamsed_ref ) ! Namelist nam_poc in reference namelist : Pisces variables 601 601 READ ( numnamsed_ref, nam_poc, IOSTAT = ios, ERR = 911) 602 911 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in reference namelist' , lwp)602 911 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in reference namelist' ) 603 603 604 604 REWIND( numnamsed_cfg ) ! Namelist nam_poc in reference namelist : Pisces variables 605 605 READ ( numnamsed_cfg, nam_poc, IOSTAT = ios, ERR = 912) 606 912 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in configuration namelist' , lwp)606 912 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in configuration namelist' ) 607 607 608 608 IF (lwp) THEN … … 652 652 REWIND( numnamsed_ref ) ! Namelist nam_btb in reference namelist : Pisces variables 653 653 READ ( numnamsed_ref, nam_btb, IOSTAT = ios, ERR = 913) 654 913 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in reference namelist' , lwp)654 913 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in reference namelist' ) 655 655 656 656 REWIND( numnamsed_cfg ) ! Namelist nam_btb in reference namelist : Pisces variables 657 657 READ ( numnamsed_cfg, nam_btb, IOSTAT = ios, ERR = 914) 658 914 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in configuration namelist' , lwp)658 914 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in configuration namelist' ) 659 659 660 660 IF (lwp) THEN … … 673 673 REWIND( numnamsed_ref ) ! Namelist nam_rst in reference namelist : Pisces variables 674 674 READ ( numnamsed_ref, nam_rst, IOSTAT = ios, ERR = 915) 675 915 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in reference namelist' , lwp)675 915 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in reference namelist' ) 676 676 677 677 REWIND( numnamsed_cfg ) ! Namelist nam_rst in reference namelist : Pisces variables 678 678 READ ( numnamsed_cfg, nam_rst, IOSTAT = ios, ERR = 916) 679 916 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in configuration namelist' , lwp)679 916 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in configuration namelist' ) 680 680 681 681 IF (lwp) THEN -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/SED/sedrst.F90
r10425 r11692 49 49 IF( ln_rst_list ) THEN 50 50 nrst_lst = 1 51 nitrst = n stocklist( nrst_lst )51 nitrst = nn_stocklist( nrst_lst ) 52 52 ELSE 53 53 nitrst = nitend 54 54 ENDIF 55 55 ENDIF 56 IF( .NOT. ln_rst_list .AND. MOD( kt - 1, n stock ) == 0 ) THEN56 IF( .NOT. ln_rst_list .AND. MOD( kt - 1, nn_stock ) == 0 ) THEN 57 57 ! we use kt - 1 and not kt - nittrc000 to keep the same periodicity from the beginning of the experiment 58 nitrst = kt + n stock - 1 ! define the next value of nitrst for restart writing58 nitrst = kt + nn_stock - 1 ! define the next value of nitrst for restart writing 59 59 IF( nitrst > nitend ) nitrst = nitend ! make sure we write a restart at the end of the run 60 60 ENDIF … … 62 62 IF( kt == nittrc000 ) lrst_sed = .FALSE. 63 63 ENDIF 64 65 IF( .NOT. ln_rst_list .AND. nn_stock == -1 ) RETURN ! we will never do any restart 64 66 65 67 ! to get better performances with NetCDF format: 66 68 ! we open and define the tracer restart file one tracer time step before writing the data (-> at nitrst - 2*nn_dttrc + 1) 67 69 ! except if we write tracer restart files every tracer time step or if a tracer restart file was writen at nitend - 2*nn_dttrc + 1 68 IF( kt == nitrst - 2*nn_dtsed .OR. n stock == nn_dtsed .OR. ( kt == nitend - nn_dtsed .AND. .NOT. lrst_sed ) ) THEN70 IF( kt == nitrst - 2*nn_dtsed .OR. nn_stock == nn_dtsed .OR. ( kt == nitend - nn_dtsed .AND. .NOT. lrst_sed ) ) THEN 69 71 ! beware of the format used to write kt (default is i8.8, that should be large enough) 70 72 IF( nitrst > 1.0e9 ) THEN ; WRITE(clkt,* ) nitrst … … 300 302 IF( l_offline .AND. ln_rst_list ) THEN 301 303 nrst_lst = nrst_lst + 1 302 nitrst = n stocklist( nrst_lst )304 nitrst = nn_stocklist( nrst_lst ) 303 305 ENDIF 304 306 ENDIF -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/PISCES/trcnam_pisces.F90
r10222 r11692 57 57 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables 58 58 READ ( numnatp_ref, nampismod, IOSTAT = ios, ERR = 901) 59 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismod in reference namelist' , lwp)59 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismod in reference namelist' ) 60 60 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables 61 61 READ ( numnatp_cfg, nampismod, IOSTAT = ios, ERR = 902 ) 62 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismod in configuration namelist' , lwp)62 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampismod in configuration namelist' ) 63 63 IF(lwm) WRITE( numonp, nampismod ) 64 64 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/TRP/trcadv.F90
r10068 r11692 166 166 REWIND( numnat_ref ) ! namtrc_adv in reference namelist 167 167 READ ( numnat_ref, namtrc_adv, IOSTAT = ios, ERR = 901) 168 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in reference namelist' , lwp)168 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in reference namelist' ) 169 169 REWIND( numnat_cfg ) ! namtrc_adv in configuration namelist 170 170 READ ( numnat_cfg, namtrc_adv, IOSTAT = ios, ERR = 902 ) 171 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist' , lwp)171 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist' ) 172 172 IF(lwm) WRITE ( numont, namtrc_adv ) 173 173 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/TRP/trcdmp.F90
r10351 r11692 183 183 REWIND( numnat_ref ) ! Namelist namtrc_dmp in reference namelist : Passive tracers newtonian damping 184 184 READ ( numnat_ref, namtrc_dmp, IOSTAT = ios, ERR = 909) 185 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in reference namelist' , lwp)185 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in reference namelist' ) 186 186 REWIND( numnat_cfg ) ! Namelist namtrc_dmp in configuration namelist : Passive tracers newtonian damping 187 187 READ ( numnat_cfg, namtrc_dmp, IOSTAT = ios, ERR = 910) 188 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in configuration namelist' , lwp)188 910 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in configuration namelist' ) 189 189 IF(lwm) WRITE ( numont, namtrc_dmp ) 190 190 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/TRP/trcldf.F90
r10068 r11692 145 145 REWIND( numnat_ref ) ! namtrc_ldf in reference namelist 146 146 READ ( numnat_ref, namtrc_ldf, IOSTAT = ios, ERR = 903) 147 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in reference namelist' , lwp)147 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in reference namelist' ) 148 148 ! 149 149 REWIND( numnat_cfg ) ! namtrc_ldf in configuration namelist 150 150 READ ( numnat_cfg, namtrc_ldf, IOSTAT = ios, ERR = 904 ) 151 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in configuration namelist' , lwp)151 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in configuration namelist' ) 152 152 IF(lwm) WRITE ( numont, namtrc_ldf ) 153 153 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/TRP/trcrad.F90
r10425 r11692 89 89 REWIND( numnat_ref ) ! namtrc_rad in reference namelist 90 90 READ ( numnat_ref, namtrc_rad, IOSTAT = ios, ERR = 907) 91 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in reference namelist' , lwp)91 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in reference namelist' ) 92 92 REWIND( numnat_cfg ) ! namtrc_rad in configuration namelist 93 93 READ ( numnat_cfg, namtrc_rad, IOSTAT = ios, ERR = 908 ) 94 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_rad in configuration namelist' , lwp)94 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_rad in configuration namelist' ) 95 95 IF(lwm) WRITE( numont, namtrc_rad ) 96 96 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/TRP/trcsink.F90
r10788 r11692 87 87 DO jj = 1, jpj 88 88 DO ji = 1, jpi 89 IF( tmask(ji,jj,jk) == 1 ) THEN89 IF( tmask(ji,jj,jk) == 1.0 ) THEN 90 90 zwsmax = 0.5 * e3t_n(ji,jj,jk) * rday / rsfact 91 91 zwsink(ji,jj,jk) = MIN( pwsink(ji,jj,jk), zwsmax * REAL( iiter(ji,jj), wp ) ) 92 ELSE 93 ! provide a default value so there is no use of undefinite value in trc_sink2 for zwsink2 initialization 94 zwsink(ji,jj,jk) = 0. 92 95 ENDIF 93 96 END DO … … 215 218 REWIND( numnat_ref ) ! namtrc_rad in reference namelist 216 219 READ ( numnat_ref, namtrc_snk, IOSTAT = ios, ERR = 907) 217 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_snk in reference namelist' , lwp)220 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_snk in reference namelist' ) 218 221 REWIND( numnat_cfg ) ! namtrc_rad in configuration namelist 219 222 READ ( numnat_cfg, namtrc_snk, IOSTAT = ios, ERR = 908 ) 220 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_snk in configuration namelist' , lwp)223 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_snk in configuration namelist' ) 221 224 IF(lwm) WRITE( numont, namtrc_snk ) 222 225 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/TRP/trdmxl_trc.F90
r10425 r11692 108 108 ! ... Set nmld(ji,jj) = index of first T point below control surf. or outside mixed-layer 109 109 SELECT CASE ( nn_ctls_trc ) ! choice of the control surface 110 CASE ( -2 ) ; STOP 'trdmxl_trc : not ready '! -> isopycnal surface (see ???)110 CASE ( -2 ) ; CALL ctl_stop( 'STOP', 'trdmxl_trc : not ready ' ) ! -> isopycnal surface (see ???) 111 111 CASE ( -1 ) ; nmld_trc(:,:) = neln(:,:) ! -> euphotic layer with light criterion 112 112 CASE ( 0 ) ; nmld_trc(:,:) = nmln(:,:) ! -> ML with density criterion (see zdfmxl) … … 431 431 432 432 #if defined key_diainstant 433 STOP 'tmltrd_trc : key_diainstant was never checked within trdmxl. Comment this to proceed.'433 CALL ctl_stop( 'STOP', 'tmltrd_trc : key_diainstant was never checked within trdmxl. Comment this to proceed.' ) 434 434 #endif 435 435 ENDIF … … 857 857 # if defined key_diainstant 858 858 IF( .NOT. ln_trdmxl_trc_instant ) THEN 859 STOP 'trd_mxl_trc : this was never checked. Comment this line to proceed...'859 CALL ctl_stop( 'STOP', 'trd_mxl_trc : this was never checked. Comment this line to proceed...' ) 860 860 ENDIF 861 861 zsto = nn_trd_trc * rdt … … 928 928 !-- Define miscellaneous passive tracer mixed-layer variables 929 929 IF( jpltrd_trc /= jpmxl_trc_atf .OR. jpltrd_trc - 1 /= jpmxl_trc_radb ) THEN 930 STOP 'Error : jpltrd_trc /= jpmxl_trc_atf .OR. jpltrd_trc - 1 /= jpmxl_trc_radb'! see below930 CALL ctl_stop( 'STOP', 'Error : jpltrd_trc /= jpmxl_trc_atf .OR. jpltrd_trc - 1 /= jpmxl_trc_radb' ) ! see below 931 931 ENDIF 932 932 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/trcbc.F90
r10068 r11692 44 44 TYPE(FLD), SAVE, PUBLIC, ALLOCATABLE, DIMENSION(:), TARGET :: sf_trcobc 45 45 #endif 46 TYPE(MAP_POINTER), ALLOCATABLE, DIMENSION(:) :: nbmap_ptr ! array of pointers to nbmap47 46 48 47 !! * Substitutions … … 123 122 REWIND( numnat_ref ) ! Namelist namtrc_bc in reference namelist : Passive tracer data structure 124 123 READ ( numnat_ref, namtrc_bc, IOSTAT = ios, ERR = 901) 125 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bc in reference namelist' , lwp)124 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bc in reference namelist' ) 126 125 REWIND( numnat_cfg ) ! Namelist namtrc_bc in configuration namelist : Passive tracer data structure 127 126 READ ( numnat_cfg, namtrc_bc, IOSTAT = ios, ERR = 902 ) 128 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bc in configuration namelist' , lwp)127 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bc in configuration namelist' ) 129 128 IF(lwm) WRITE ( numont, namtrc_bc ) 130 129 … … 132 131 REWIND( numnat_ref ) ! Namelist namtrc_bdy in reference namelist : Passive tracer data structure 133 132 READ ( numnat_ref, namtrc_bdy, IOSTAT = ios, ERR = 903) 134 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in reference namelist', lwp ) 135 133 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in reference namelist' ) 134 ! make sur that all elements of the namelist variables have a default definition from namelist_ref 135 cn_trc (2:jp_bdy) = cn_trc (1) 136 cn_trc_dflt(2:jp_bdy) = cn_trc_dflt(1) 136 137 REWIND( numnat_cfg ) ! Namelist namtrc_bdy in configuration namelist : Passive tracer data structure 137 138 READ ( numnat_cfg, namtrc_bdy, IOSTAT = ios, ERR = 904 ) 138 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in configuration namelist' , lwp)139 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_bdy in configuration namelist' ) 139 140 IF(lwm) WRITE ( numont, namtrc_bdy ) 140 141 … … 234 235 ! OPEN Lateral boundary conditions 235 236 IF( ln_bdy .AND. nb_trcobc > 0 ) THEN 236 ALLOCATE ( sf_trcobc(nb_trcobc), rf_trofac(nb_trcobc), nbmap_ptr(nb_trcobc),STAT=ierr1 )237 ALLOCATE ( sf_trcobc(nb_trcobc), rf_trofac(nb_trcobc), STAT=ierr1 ) 237 238 IF( ierr1 > 0 ) THEN 238 239 CALL ctl_stop( 'trc_bc_ini: unable to allocate sf_trcobc structure' ) ; RETURN … … 257 258 trcdta_bdy(jn,ib)%trc => sf_trcobc(jl)%fnow(:,1,:) 258 259 trcdta_bdy(jn,ib)%rn_fac = rf_trofac(jl) 259 ! create OBC mapping array260 nbmap_ptr(jl)%ptr => idx_bdy(ib)%nbmap(:,igrd)261 nbmap_ptr(jl)%ll_unstruc = ln_coords_file(igrd)262 !263 260 ELSE !* Initialise obc arrays from initial conditions *! 264 261 ALLOCATE ( trcdta_bdy(jn,ib)%trc(nblen,jpk) ) … … 276 273 ! 277 274 CALL fld_fill( sf_trcobc, slf_i, cn_dir_obc, 'trc_bc_ini', 'Passive tracer OBC data', 'namtrc_bc' ) 275 DO jn = 1, ntrc ! define imap pointer, must be done after the call to fld_fill 276 DO ib = 1, nb_bdy 277 IF( ln_trc_obc(jn) ) THEN !* Initialise from external data *! 278 jl = n_trc_indobc(jn) 279 sf_trcobc(jl)%imap => idx_bdy(ib)%nbmap(1:idx_bdy(ib)%nblen(igrd),igrd) 280 ENDIF 281 END DO 282 END DO 283 ! 278 284 ENDIF 279 285 … … 362 368 IF( PRESENT(jit) ) THEN 363 369 ! 364 ! OPEN boundary conditions (use time_offset=+1 as they are applied at the end of the step)370 ! OPEN boundary conditions (use kt_offset=+1 as they are applied at the end of the step) 365 371 IF( nb_trcobc > 0 ) THEN 366 372 if (lwp) write(numout,'(a,i5,a,i10)') ' reading OBC data for ', nb_trcobc ,' variable(s) at step ', kt 367 CALL fld_read( kt=kt, kn_fsbc=1, sd=sf_trcobc, map=nbmap_ptr,kit=jit, kt_offset=+1)373 CALL fld_read( kt=kt, kn_fsbc=1, sd=sf_trcobc, kit=jit, kt_offset=+1) 368 374 ENDIF 369 375 ! … … 382 388 ELSE 383 389 ! 384 ! OPEN boundary conditions (use time_offset=+1 as they are applied at the end of the step)390 ! OPEN boundary conditions (use kt_offset=+1 as they are applied at the end of the step) 385 391 IF( nb_trcobc > 0 ) THEN 386 392 if (lwp) write(numout,'(a,i5,a,i10)') ' reading OBC data for ', nb_trcobc ,' variable(s) at step ', kt 387 CALL fld_read( kt=kt, kn_fsbc=1, sd=sf_trcobc, map=nbmap_ptr,kt_offset=+1)393 CALL fld_read( kt=kt, kn_fsbc=1, sd=sf_trcobc, kt_offset=+1) 388 394 ENDIF 389 395 ! -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/trcbdy.F90
r10425 r11692 22 22 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 23 23 USE in_out_manager ! I/O manager 24 USE bdy_oce , only: idx_bdy! ocean open boundary conditions24 USE bdy_oce ! ocean open boundary conditions 25 25 26 26 IMPLICIT NONE … … 46 46 INTEGER, INTENT( in ) :: kt ! Main time step counter 47 47 !! 48 INTEGER :: ib_bdy , jn ,igrd ! Loop indeces48 INTEGER :: ib_bdy ,ir, jn ,igrd ! Loop indices 49 49 REAL(wp), POINTER, DIMENSION(:,:) :: ztrc 50 50 REAL(wp), POINTER :: zfac 51 LOGICAL :: llrim0 ! indicate if rim 0 is treated 52 LOGICAL, DIMENSION(4) :: llsend1, llrecv1 ! indicate how communications are to be carried out 51 53 !!---------------------------------------------------------------------- 52 54 ! … … 54 56 ! 55 57 igrd = 1 56 ! 57 DO ib_bdy=1, nb_bdy 58 DO jn = 1, jptra 59 ! 60 ztrc => trcdta_bdy(jn,ib_bdy)%trc 61 zfac => trcdta_bdy(jn,ib_bdy)%rn_fac 62 ! 63 SELECT CASE( TRIM(trcdta_bdy(jn,ib_bdy)%cn_obc) ) 64 CASE('none' ) ; CYCLE 65 CASE('frs' ) ; CALL bdy_frs( idx_bdy(ib_bdy), tra(:,:,:,jn), ztrc*zfac ) 66 CASE('specified' ) ; CALL bdy_spe( idx_bdy(ib_bdy), tra(:,:,:,jn), ztrc*zfac ) 67 CASE('neumann' ) ; CALL bdy_nmn( idx_bdy(ib_bdy), igrd , tra(:,:,:,jn) ) 68 CASE('orlanski' ) ; CALL bdy_orl( idx_bdy(ib_bdy), trb(:,:,:,jn), tra(:,:,:,jn), ztrc*zfac, ll_npo=.false. ) 69 CASE('orlanski_npo') ; CALL bdy_orl( idx_bdy(ib_bdy), trb(:,:,:,jn), tra(:,:,:,jn), ztrc*zfac, ll_npo=.true. ) 70 CASE DEFAULT ; CALL ctl_stop( 'trc_bdy : unrecognised option for open boundaries for passive tracers' ) 58 llsend1(:) = .false. ; llrecv1(:) = .false. 59 DO ir = 1, 0, -1 ! treat rim 1 before rim 0 60 IF( ir == 0 ) THEN ; llrim0 = .TRUE. 61 ELSE ; llrim0 = .FALSE. 62 END IF 63 DO ib_bdy=1, nb_bdy 64 DO jn = 1, jptra 65 ! 66 ztrc => trcdta_bdy(jn,ib_bdy)%trc 67 zfac => trcdta_bdy(jn,ib_bdy)%rn_fac 68 ! 69 SELECT CASE( TRIM(trcdta_bdy(jn,ib_bdy)%cn_obc) ) 70 CASE('none' ) ; CYCLE 71 CASE('frs' ) ! treat the whole boundary at once 72 IF( ir == 0 ) CALL bdy_frs( idx_bdy(ib_bdy), tra(:,:,:,jn), ztrc*zfac ) 73 CASE('specified' ) ! treat the whole rim at once 74 IF( ir == 0 ) CALL bdy_spe( idx_bdy(ib_bdy), tra(:,:,:,jn), ztrc*zfac ) 75 CASE('neumann' ) ; CALL bdy_nmn( idx_bdy(ib_bdy), igrd , tra(:,:,:,jn) ) ! tra masked 76 CASE('orlanski' ) ; CALL bdy_orl( idx_bdy(ib_bdy), trb(:,:,:,jn), tra(:,:,:,jn), ztrc*zfac, ll_npo=.false. ) 77 CASE('orlanski_npo') ; CALL bdy_orl( idx_bdy(ib_bdy), trb(:,:,:,jn), tra(:,:,:,jn), ztrc*zfac, ll_npo=.true. ) 78 CASE DEFAULT ; CALL ctl_stop( 'trc_bdy : unrecognised option for open boundaries for passive tracers' ) 79 END SELECT 80 ! 81 END DO 82 END DO 83 ! 84 IF( nn_hls > 1 .AND. ir == 1 ) CYCLE ! at least 2 halos will be corrected -> no need to correct rim 1 before rim 0 85 IF( nn_hls == 1 ) THEN ; llsend1(:) = .false. ; llrecv1(:) = .false. ; END IF 86 DO ib_bdy=1, nb_bdy 87 SELECT CASE( TRIM(cn_tra(ib_bdy)) ) 88 CASE('neumann') 89 llsend1(:) = llsend1(:) .OR. lsend_bdyint(ib_bdy,1,:,ir) ! possibly every direction, T points 90 llrecv1(:) = llrecv1(:) .OR. lrecv_bdyint(ib_bdy,1,:,ir) ! possibly every direction, T points 91 CASE('orlanski','orlanski_npo') 92 llsend1(:) = llsend1(:) .OR. lsend_bdy(ib_bdy,1,:,ir) ! possibly every direction, T points 93 llrecv1(:) = llrecv1(:) .OR. lrecv_bdy(ib_bdy,1,:,ir) ! possibly every direction, T points 71 94 END SELECT 72 ! Boundary points should be updated73 CALL lbc_bdy_lnk( 'trcbdy', tra(:,:,:,jn), 'T', 1., ib_bdy )74 !75 95 END DO 76 END DO 96 IF( ANY(llsend1) .OR. ANY(llrecv1) ) THEN ! if need to send/recv in at least one direction 97 CALL lbc_lnk( 'bdytra', tsa, 'T', 1., kfillmode=jpfillnothing ,lsend=llsend1, lrecv=llrecv1 ) 98 END IF 99 ! 100 END DO ! ir 77 101 ! 78 102 IF( ln_timing ) CALL timing_stop('trc_bdy') 79 103 ! 80 104 END SUBROUTINE trc_bdy 81 105 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/trcdta.F90
r10222 r11692 100 100 REWIND( numnat_ref ) ! Namelist namtrc_dta in reference namelist : Passive tracer input data 101 101 READ ( numnat_ref, namtrc_dta, IOSTAT = ios, ERR = 901) 102 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta_ini in reference namelist' , lwp)102 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta_ini in reference namelist' ) 103 103 REWIND( numnat_cfg ) ! Namelist namtrc_dta in configuration namelist : Passive tracer input data 104 104 READ ( numnat_cfg, namtrc_dta, IOSTAT = ios, ERR = 902 ) 105 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_dta_ini in configuration namelist' , lwp)105 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_dta_ini in configuration namelist' ) 106 106 IF(lwm) WRITE ( numont, namtrc_dta ) 107 107 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/trcice.F90
r10069 r11692 87 87 REWIND( numnat_ref ) ! Namelist namtrc_ice in reference namelist : Passive tracer input data 88 88 READ ( numnat_ref, namtrc_ice, IOSTAT = ios, ERR = 901) 89 901 IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtrc_ice in reference namelist ' , lwp)89 901 IF( ios /= 0 ) CALL ctl_nam ( ios , ' namtrc_ice in reference namelist ' ) 90 90 REWIND( numnat_cfg ) ! Namelist namtrc_ice in configuration namelist : Pisces external sources of nutrients 91 91 READ ( numnat_cfg, namtrc_ice, IOSTAT = ios, ERR = 902 ) 92 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_ice in configuration namelist' , lwp)92 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_ice in configuration namelist' ) 93 93 94 94 IF( lwp ) THEN -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/trcnam.F90
r10425 r11692 114 114 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables 115 115 READ ( numnat_ref, namtrc_run, IOSTAT = ios, ERR = 901) 116 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' , lwp)116 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 117 117 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables 118 118 READ ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 119 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' , lwp)119 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) 120 120 IF(lwm) WRITE( numont, namtrc_run ) 121 121 … … 160 160 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables 161 161 READ ( numnat_ref, namtrc, IOSTAT = ios, ERR = 901) 162 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' , lwp)162 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist' ) 163 163 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables 164 164 READ ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 165 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' , lwp)165 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist' ) 166 166 IF(lwm) WRITE( numont, namtrc ) 167 167 … … 263 263 REWIND( numnat_ref ) ! Namelist namtrc_trd in reference namelist : Passive tracer trends 264 264 READ ( numnat_ref, namtrc_trd, IOSTAT = ios, ERR = 905) 265 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist' , lwp)265 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist' ) 266 266 REWIND( numnat_cfg ) ! Namelist namtrc_trd in configuration namelist : Passive tracer trends 267 267 READ ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 268 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' , lwp)268 906 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist' ) 269 269 IF(lwm) WRITE( numont, namtrc_trd ) 270 270 -
NEMO/branches/2019/dev_r11514_HPC-02_single-core-extrahalo/src/TOP/trcrst.F90
r10425 r11692 58 58 IF( ln_rst_list ) THEN 59 59 nrst_lst = 1 60 nitrst = n stocklist( nrst_lst )60 nitrst = nn_stocklist( nrst_lst ) 61 61 ELSE 62 62 nitrst = nitend … … 64 64 ENDIF 65 65 66 IF( .NOT. ln_rst_list .AND. MOD( kt - 1, n stock ) == 0 ) THEN66 IF( .NOT. ln_rst_list .AND. MOD( kt - 1, nn_stock ) == 0 ) THEN 67 67 ! we use kt - 1 and not kt - nittrc000 to keep the same periodicity from the beginning of the experiment 68 nitrst = kt + n stock - 1 ! define the next value of nitrst for restart writing68 nitrst = kt + nn_stock - 1 ! define the next value of nitrst for restart writing 69 69 IF( nitrst > nitend ) nitrst = nitend ! make sure we write a restart at the end of the run 70 70 ENDIF … … 72 72 IF( kt == nittrc000 ) lrst_trc = .FALSE. 73 73 ENDIF 74 75 IF( .NOT. ln_rst_list .AND. nn_stock == -1 ) RETURN ! we will never do any restart 74 76 75 77 ! to get better performances with NetCDF format: 76 78 ! we open and define the tracer restart file one tracer time step before writing the data (-> at nitrst - 2*nn_dttrc + 1) 77 79 ! except if we write tracer restart files every tracer time step or if a tracer restart file was writen at nitend - 2*nn_dttrc + 1 78 IF( kt == nitrst - 2*nn_dttrc .OR. n stock == nn_dttrc .OR. ( kt == nitend - nn_dttrc .AND. .NOT. lrst_trc ) ) THEN80 IF( kt == nitrst - 2*nn_dttrc .OR. nn_stock == nn_dttrc .OR. ( kt == nitend - nn_dttrc .AND. .NOT. lrst_trc ) ) THEN 79 81 ! beware of the format used to write kt (default is i8.8, that should be large enough) 80 82 IF( nitrst > 1.0e9 ) THEN ; WRITE(clkt,* ) nitrst … … 153 155 IF( l_offline .AND. ln_rst_list ) THEN 154 156 nrst_lst = nrst_lst + 1 155 nitrst = n stocklist( nrst_lst )157 nitrst = nn_stocklist( nrst_lst ) 156 158 ENDIF 157 159 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.