- 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/p4zlys.F90
r7753 r9124 65 65 !!--------------------------------------------------------------------- 66 66 ! 67 IF( nn_timing == 1) CALL timing_start('p4z_lys')67 IF( ln_timing ) CALL timing_start('p4z_lys') 68 68 ! 69 69 CALL wrk_alloc( jpi, jpj, jpk, zco3, zcaldiss, zhinit, zhi, zco3sat ) … … 141 141 CALL wrk_dealloc( jpi, jpj, jpk, zco3, zcaldiss, zhinit, zhi, zco3sat ) 142 142 ! 143 IF( nn_timing == 1 )CALL timing_stop('p4z_lys')143 IF( ln_timing ) CALL timing_stop('p4z_lys') 144 144 ! 145 145 END SUBROUTINE p4z_lys 146 146 147 147 148 SUBROUTINE p4z_lys_init 148 149 149 !!---------------------------------------------------------------------- 150 150 !! *** ROUTINE p4z_lys_init *** … … 158 158 !! 159 159 !!---------------------------------------------------------------------- 160 INTEGER :: ios ! Local integer output status for namelist read161 160 INTEGER :: ios ! Local integer 161 ! 162 162 NAMELIST/nampiscal/ kdca, nca 163 163 !!---------------------------------------------------------------------- 164 164 ! 165 165 REWIND( numnatp_ref ) ! Namelist nampiscal in reference namelist : Pisces CaCO3 dissolution 166 166 READ ( numnatp_ref, nampiscal, IOSTAT = ios, ERR = 901) 167 167 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist', lwp ) 168 168 ! 169 169 REWIND( numnatp_cfg ) ! Namelist nampiscal in configuration namelist : Pisces CaCO3 dissolution 170 170 READ ( numnatp_cfg, nampiscal, IOSTAT = ios, ERR = 902 ) 171 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist', lwp )171 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist', lwp ) 172 172 IF(lwm) WRITE ( numonp, nampiscal ) 173 173 ! 174 174 IF(lwp) THEN ! control print 175 175 WRITE(numout,*) ' ' … … 179 179 WRITE(numout,*) ' order of reaction for calcite dissolution nca =', nca 180 180 ENDIF 181 181 ! 182 182 ! Number of seconds per month 183 183 rmtss = nyear_len(1) * rday / raamo
Note: See TracChangeset
for help on using the changeset viewer.