New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9292 for branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90 – NEMO

Ignore:
Timestamp:
2018-01-30T19:41:58+01:00 (6 years ago)
Author:
dford
Message:

Merge in changes from dev_r5518_GO6_package_asm_surf_bgc_v2.

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  
    7777                                   zn_dms_chd, zn_dms_chn, zn_dms_din,    & 
    7878                                   zn_dms_mld, zn_dms_qsr,                & 
     79# if defined key_foam_medusa 
     80                                   f2_pco2w, f2_fco2w,                    & 
     81# endif 
    7982                                   xnln, xnld  
    8083      USE trc,               ONLY: med_diag 
     
    8790#  else 
    8891      USE trcco2_medusa,     ONLY: trc_co2_medusa 
     92#   if defined key_foam_medusa 
     93      USE mocsy_mainmod,     ONLY: p2fCO2 
     94#   endif 
    8995#  endif 
    9096      USE trcdms_medusa,     ONLY: trc_dms_medusa 
     
    330336                     iters, ' AT (', ji, ', ', jj, ', 1) AT ', kt 
    331337               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 
    332342            ENDIF 
    333343         ENDDO 
     
    509519                              CO2flux_conv 
    510520               !! 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 
    511526               IF ( lk_iomput ) THEN 
    512527                  IF( med_diag%ATM_PCO2%dgsave ) THEN 
Note: See TracChangeset for help on using the changeset viewer.