- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zrem.F90
r8533 r9124 58 58 !! ** Method : - ??? 59 59 !!--------------------------------------------------------------------- 60 !61 60 INTEGER, INTENT(in) :: kt, knt ! ocean time step 62 61 ! … … 72 71 !!--------------------------------------------------------------------- 73 72 ! 74 IF( nn_timing == 1 )CALL timing_start('p4z_rem')73 IF( ln_timing ) CALL timing_start('p4z_rem') 75 74 ! 76 75 ! Allocate temporary workspace … … 289 288 CALL wrk_dealloc( jpi, jpj, jpk, zdepbac, zdepprod, zolimi, zfacsi, zfacsib ) 290 289 ! 291 IF( nn_timing == 1 )CALL timing_stop('p4z_rem')290 IF( ln_timing ) CALL timing_stop('p4z_rem') 292 291 ! 293 292 END SUBROUTINE p4z_rem … … 309 308 & xremikc, xremikn, xremikp 310 309 INTEGER :: ios ! Local integer output status for namelist read 310 !!---------------------------------------------------------------------- 311 311 312 312 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization … … 316 316 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization 317 317 READ ( numnatp_cfg, nampisrem, IOSTAT = ios, ERR = 902 ) 318 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist', lwp )318 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist', lwp ) 319 319 IF(lwm) WRITE ( numonp, nampisrem ) 320 320
Note: See TracChangeset
for help on using the changeset viewer.