Changeset 9248
- Timestamp:
- 2018-01-16T17:41:18+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r9169 r9248 249 249 WRITE(numout,*) ' reading in the atm pCO2 file or constant value ln_co2int =', ln_co2int 250 250 ENDIF 251 252 !!gm BUG !!! ===>>> ln_presatm and ln_presatmco2 are used below, but read in namelist 253 !!gm at the end of the routine via a CALL to CALL p4z_patm( nit000 ) 254 255 IF( .NOT.ln_co2int .AND. .NOT.ln_presatmco2 ) THEN 251 ! 252 CALL p4z_patm( nit000 ) 253 ! 254 IF( .NOT.ln_co2int .AND. .NOT.ln_presatmco2 ) THEN 256 255 IF(lwp) THEN ! control print 257 256 WRITE(numout,*) ' Constant Atmospheric pCO2 value atcco2 =', atcco2 … … 281 280 CLOSE(numco2) 282 281 ELSEIF( .NOT.ln_co2int .AND. ln_presatmco2 ) THEN 283 IF(lwp) THEN 284 WRITE(numout,*) ' Spatialized Atmospheric pCO2 from an external file' 285 ENDIF 282 IF(lwp) WRITE(numout,*) ' Spatialized Atmospheric pCO2 from an external file' 286 283 ELSE 287 IF(lwp) THEN 288 WRITE(numout,*) ' Spatialized Atmospheric pCO2 from an external file' 289 ENDIF 284 IF(lwp) WRITE(numout,*) ' Spatialized Atmospheric pCO2 from an external file' 290 285 ENDIF 291 286 ! … … 293 288 t_oce_co2_flx = 0._wp 294 289 t_atm_co2_flx = 0._wp 295 !296 CALL p4z_patm( nit000 )297 290 ! 298 291 END SUBROUTINE p4z_flx_init
Note: See TracChangeset
for help on using the changeset viewer.