- Timestamp:
- 2020-07-03T14:18:57+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r12610 r13240 1070 1070 #elif defined key_fabm 1071 1071 USE par_fabm ! FABM parameters 1072 USE fabm, ONLY: &1073 & fabm_get_interior_diagnostic_data1074 1072 #endif 1075 1073 #if defined key_spm … … 1282 1280 #elif defined key_fabm 1283 1281 ! Alkalinity from ERSEM 1284 zprofvar(:,:,:,1) = fabm_get_interior_diagnostic_data(model,jp_fabm_o3ta)1282 zprofvar(:,:,:,1) = model%get_interior_diagnostic_data(jp_fabm_o3ta) 1285 1283 #else 1286 1284 CALL ctl_stop( ' Trying to run palk observation operator', & … … 1297 1295 #elif defined key_fabm 1298 1296 ! pH from ERSEM 1299 zprofvar(:,:,:,1) = trn(:,:,:,jp_fabm_m1+jp_fabm_o3ph)1297 zprofvar(:,:,:,1) = model%get_interior_diagnostic_data(jp_fabm_o3ph) 1300 1298 #else 1301 1299 CALL ctl_stop( ' Trying to run pph observation operator', & … … 1610 1608 #elif defined key_fabm 1611 1609 ! light_xEPS diagnostic variable 1612 fabm_3d(:,:,:) = fabm_get_interior_diagnostic_data(model,jp_fabm_xeps)1610 fabm_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_xeps) 1613 1611 zsurfvar(:,:) = fabm_3d(:,:,1) 1614 1612 #else … … 1631 1629 #elif defined key_fabm 1632 1630 ! First, get pCO2 from FABM 1633 fabm_3d(:,:,:) = fabm_get_interior_diagnostic_data(model,jp_fabm_o3pc)1631 fabm_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_o3pc) 1634 1632 zsurfvar(:,:) = fabm_3d(:,:,1) 1635 1633 ! Now, convert pCO2 to fCO2, based on SST in K. This follows the standard methodology of: … … 1670 1668 zsurfvar(:,:) = f2_pco2w(:,:) 1671 1669 #elif defined key_fabm 1672 fabm_3d(:,:,:) = fabm_get_interior_diagnostic_data(model,jp_fabm_o3pc)1670 fabm_3d(:,:,:) = model%get_interior_diagnostic_data(jp_fabm_o3pc) 1673 1671 zsurfvar(:,:) = fabm_3d(:,:,1) 1674 1672 #else
Note: See TracChangeset
for help on using the changeset viewer.