Changeset 9292 for branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90
- Timestamp:
- 2018-01-30T19:41:58+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90
r9257 r9292 77 77 zn_dms_chd, zn_dms_chn, zn_dms_din, & 78 78 zn_dms_mld, zn_dms_qsr, & 79 # if defined key_foam_medusa 80 f2_pco2w, f2_fco2w, & 81 # endif 79 82 xnln, xnld 80 83 USE trc, ONLY: med_diag … … 87 90 # else 88 91 USE trcco2_medusa, ONLY: trc_co2_medusa 92 # if defined key_foam_medusa 93 USE mocsy_mainmod, ONLY: p2fCO2 94 # endif 89 95 # endif 90 96 USE trcdms_medusa, ONLY: trc_dms_medusa … … 330 336 iters, ' AT (', ji, ', ', jj, ', 1) AT ', kt 331 337 endif 338 # if defined key_foam_medusa 339 !! DAF (Aug 2017): calculate fCO2 for observation operator 340 CALL p2fCO2( f_pco2w, ztmp, f_pp0, 0.0, 1, f_fco2w ) 341 # endif 332 342 ENDIF 333 343 ENDDO … … 509 519 CO2flux_conv 510 520 !! ENDIF 521 # if defined key_foam_medusa 522 !! DAF (Aug 2017): Save pCO2 and fCO2 for observation operator 523 f2_pco2w(ji,jj) = f_pco2w(ji,jj) 524 f2_fco2w(ji,jj) = f_pco2w(ji,jj) 525 # endif 511 526 IF ( lk_iomput ) THEN 512 527 IF( med_diag%ATM_PCO2%dgsave ) THEN
Note: See TracChangeset
for help on using the changeset viewer.