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 15509 for NEMO/branches/UKMO/r6232_obs_oper_new_ersem/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90 – NEMO

Ignore:
Timestamp:
2021-11-15T15:36:22+01:00 (7 months ago)
Author:
jcastill
Message:

Updates for FABM 1.0

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/r6232_obs_oper_new_ersem/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r11239 r15509  
    907907#elif defined key_fabm 
    908908      USE par_fabm                 ! FABM parameters 
    909       USE fabm, ONLY: & 
    910          & fabm_get_interior_diagnostic_data 
    911909#endif 
    912910#if defined key_spm 
     
    11101108#elif defined key_fabm 
    11111109               ! Alkalinity from ERSEM 
    1112                zprofvar(:,:,:,1) = fabm_get_interior_diagnostic_data(model, jp_fabm_o3ta) 
     1110               zprofvar(:,:,:,1) = model%get_interior_diagnostic_data(jp_fabm_o3ta) 
    11131111#else 
    11141112               CALL ctl_stop( ' Trying to run palk observation operator', & 
     
    14211419#elif defined key_fabm 
    14221420               ! First, get pCO2 from FABM 
    1423                pco2_3d(:,:,:) = fabm_get_interior_diagnostic_data(model, jp_fabm_o3pc) 
     1421               pco2_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_o3pc) 
    14241422               zsurfvar(:,:) = pco2_3d(:,:,1) 
    14251423               ! Now, convert pCO2 to fCO2, based on SST in K. This follows the standard methodology of: 
     
    14601458               zsurfvar(:,:) = f2_pco2w(:,:) 
    14611459#elif defined key_fabm 
    1462                pco2_3d(:,:,:) = fabm_get_interior_diagnostic_data(model, jp_fabm_o3pc) 
     1460               pco2_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_o3pc) 
    14631461               zsurfvar(:,:) = pco2_3d(:,:,1) 
    14641462#else 
Note: See TracChangeset for help on using the changeset viewer.