Changeset 10547


Ignore:
Timestamp:
2019-01-18T15:42:27+01:00 (18 months ago)
Author:
dford
Message:

Allocate pCO2 array, and switch to preferred FABM interface.

File:
1 edited

Legend:

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

    r10388 r10547  
    908908      USE par_fabm                 ! FABM parameters 
    909909      USE fabm, ONLY: & 
    910          & fabm_get_bulk_diagnostic_data 
     910         & fabm_get_interior_diagnostic_data 
    911911#endif 
    912912#if defined key_spm 
     
    11761176         CALL wrk_alloc( jpi, jpj, zsurfvar ) 
    11771177         CALL wrk_alloc( jpi, jpj, zsurfmask ) 
     1178#if defined key_fabm 
     1179         CALL wrk_alloc( jpi, jpj, jpk, pco2_3d ) 
     1180#endif 
    11781181 
    11791182         DO jtype = 1, nsurftypes 
     
    14181421#elif defined key_fabm 
    14191422               ! First, get pCO2 from FABM 
    1420                pco2_3d(:,:,:) = fabm_get_bulk_diagnostic_data(model, jp_fabm_o3pc) 
     1423               pco2_3d(:,:,:) = fabm_get_interior_diagnostic_data(model, jp_fabm_o3pc) 
    14211424               zsurfvar(:,:) = pco2_3d(:,:,1) 
    14221425               ! Now, convert pCO2 to fCO2, based on SST in K. This follows the standard methodology of: 
     
    14571460               zsurfvar(:,:) = f2_pco2w(:,:) 
    14581461#elif defined key_fabm 
    1459                pco2_3d(:,:,:) = fabm_get_bulk_diagnostic_data(model, jp_fabm_o3pc) 
     1462               pco2_3d(:,:,:) = fabm_get_interior_diagnostic_data(model, jp_fabm_o3pc) 
    14601463               zsurfvar(:,:) = pco2_3d(:,:,1) 
    14611464#else 
     
    14911494         CALL wrk_dealloc( jpi, jpj, zsurfvar ) 
    14921495         CALL wrk_dealloc( jpi, jpj, zsurfmask ) 
     1496#if defined key_fabm 
     1497         CALL wrk_dealloc( jpi, jpj, jpk, pco2_3d ) 
     1498#endif 
    14931499 
    14941500      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.