Ignore:
Timestamp:
2017-09-04T18:50:10+02:00 (3 years ago)
Author:
dford
Message:

Merge in changes from dev_r5518_GO6_package_asm_surf_bgc, and adapt to the updated MEDUSA structure.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc_v2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90

    r8442 r8495  
    7676                                   zn_dms_chd, zn_dms_chn, zn_dms_din,    & 
    7777                                   zn_dms_mld, zn_dms_qsr,                & 
     78# if defined key_foam_medusa 
     79                                   f2_pco2w, f2_fco2w,                    & 
     80# endif 
    7881                                   xnln, xnld  
    7982      USE trc,               ONLY: med_diag 
     
    8689#  else 
    8790      USE trcco2_medusa,     ONLY: trc_co2_medusa 
     91#   if defined key_foam_medusa 
     92      USE mocsy_mainmod,     ONLY: p2fCO2 
     93#   endif 
    8894#  endif 
    8995      USE trcdms_medusa,     ONLY: trc_dms_medusa 
     
    234240                     iters, ' AT (', ji, ', ', jj, ', 1) AT ', kt 
    235241               endif 
     242#    if defined key_foam_medusa 
     243               !! DAF (Aug 2017): calculate fCO2 for observation operator 
     244               CALL p2fCO2( f_pco2w, ztmp, f_pp0, 0.0, 1, f_fco2w ) 
     245#    endif 
    236246            ENDIF 
    237247         ENDDO 
     
    408418                              CO2flux_conv 
    409419               !! ENDIF 
     420#   if defined key_foam_medusa 
     421               !! DAF (Aug 2017): Save pCO2 and fCO2 for observation operator 
     422               f2_pco2w(ji,jj) = f_pco2w(ji,jj) 
     423               f2_fco2w(ji,jj) = f_pco2w(ji,jj) 
     424#   endif 
    410425               IF ( lk_iomput ) THEN 
    411426                  IF( med_diag%ATM_PCO2%dgsave ) THEN 
Note: See TracChangeset for help on using the changeset viewer.