- 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/P2Z/p2zopt.F90
r9019 r9124 11 11 !! 3.2 ! 2009-04 (C. Ethe, G. Madec) minor optimisation + style 12 12 !!---------------------------------------------------------------------- 13 14 !!---------------------------------------------------------------------- 13 15 !! p2z_opt : Compute the light availability in the water column 14 16 !!---------------------------------------------------------------------- … … 69 71 !!--------------------------------------------------------------------- 70 72 ! 71 IF( nn_timing == 1 )CALL timing_start('p2z_opt')73 IF( ln_timing ) CALL timing_start('p2z_opt') 72 74 ! 73 75 ! Allocate temporary workspace … … 143 145 CALL wrk_dealloc( jpi, jpj, jpk, zparr, zparg ) 144 146 ! 145 IF( nn_timing == 1 )CALL timing_stop('p2z_opt')147 IF( ln_timing ) CALL timing_stop('p2z_opt') 146 148 ! 147 149 END SUBROUTINE p2z_opt … … 157 159 !! 158 160 !!---------------------------------------------------------------------- 161 INTEGER :: ios ! Local integer 162 !! 159 163 NAMELIST/namlobopt/ xkg0, xkr0, xkgp, xkrp, xlg, xlr, rpig 160 164 NAMELIST/namlobrat/ rcchl, redf, reddom 161 INTEGER :: ios ! Local integer output status for namelist read162 165 !!---------------------------------------------------------------------- 163 166 … … 168 171 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options 169 172 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 170 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp )173 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp ) 171 174 IF(lwm) WRITE ( numonp, namlobopt ) 172 175 … … 190 193 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios 191 194 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 192 904 IF( ios /=0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp )195 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp ) 193 196 IF(lwm) WRITE ( numonp, namlobrat ) 194 197
Note: See TracChangeset
for help on using the changeset viewer.