replace field names with cesm style field names

DeniseWorthen · Sep 2, 2023 · 37815a5 · 37815a5
1 parent 555d780
commit 37815a5
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 10 deletions.
diff --git a/config_src/drivers/nuopc_cap/mom_cap.F90 b/config_src/drivers/nuopc_cap/mom_cap.F90
@@ -715,9 +715,9 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
   call fld_list_add(fldsToOcn_num, fldsToOcn, "mean_salt_rate"             , "will provide") ! from ice
   call fld_list_add(fldsToOcn_num, fldsToOcn, "mean_zonal_moment_flx"      , "will provide")
   call fld_list_add(fldsToOcn_num, fldsToOcn, "mean_merid_moment_flx"      , "will provide")
-  call fld_list_add(fldsToOcn_num, fldsToOcn, "mean_sensi_heat_flx"        , "will provide")
-  call fld_list_add(fldsToOcn_num, fldsToOcn, "mean_evap_rate"             , "will provide")
-  call fld_list_add(fldsToOcn_num, fldsToOcn, "mean_net_lw_flx"            , "will provide")
+  call fld_list_add(fldsToOcn_num, fldsToOcn, "Foxx_sen"                   , "will provide")
+  call fld_list_add(fldsToOcn_num, fldsToOcn, "Foxx_evap"                  , "will provide")
+  call fld_list_add(fldsToOcn_num, fldsToOcn, "Foxx_lwnet"                 , "will provide")
   call fld_list_add(fldsToOcn_num, fldsToOcn, "mean_net_sw_vis_dir_flx"    , "will provide")
   call fld_list_add(fldsToOcn_num, fldsToOcn, "mean_net_sw_vis_dif_flx"    , "will provide")
   call fld_list_add(fldsToOcn_num, fldsToOcn, "mean_net_sw_ir_dir_flx"     , "will provide")
@@ -739,9 +739,9 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
   call fld_list_add(fldsToOcn_num, fldsToOcn, "heat_content_rofl" , "will provide")
   call fld_list_add(fldsToOcn_num, fldsToOcn, "heat_content_rofi" , "will provide")
 
-  call fld_list_add(fldsToOcn_num, fldsToOcn, "Faxa_evap"  , "will provide") !-> from atm
+  call fld_list_add(fldsToOcn_num, fldsToOcn, "Faoa_evap"  , "will provide") !-> from atm
   call fld_list_add(fldsToOcn_num, fldsToOcn, "Faxa_lwnet" , "will provide") !-> from atm
-  call fld_list_add(fldsToOcn_num, fldsToOcn, "Faxa_sen"   , "will provide") !-> from atm
+  call fld_list_add(fldsToOcn_num, fldsToOcn, "Faoa_sen"   , "will provide") !-> from atm
 
   if (use_waves) then
     if (wave_method == "EFACTOR") then

diff --git a/config_src/drivers/nuopc_cap/mom_cap_methods.F90 b/config_src/drivers/nuopc_cap/mom_cap_methods.F90
@@ -137,7 +137,7 @@ subroutine mom_import(ocean_public, ocean_grid, importState, ice_ocean_boundary,
   ! -------
   ! Net longwave radiation (W/m2)
   ! -------
-  call state_getimport(importState, 'mean_net_lw_flx',  &
+  call state_getimport(importState, 'Foxx_lwnet',  &
        isc, iec, jsc, jec, ice_ocean_boundary%lw_flux, areacor=med2mod_areacor, rc=rc)
   if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
@@ -175,22 +175,22 @@ subroutine mom_import(ocean_public, ocean_grid, importState, ice_ocean_boundary,
   !----
   ! sensible heat flux (W/m2)
   !----
-  call state_getimport(importState, 'mean_sensi_heat_flx', &
+  call state_getimport(importState, 'Foxx_sen', &
        isc, iec, jsc, jec, ice_ocean_boundary%t_flux, areacor=med2mod_areacor, rc=rc)
   if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
-  call state_getimport(importState, 'Faxa_sen', &
+  call state_getimport(importState, 'Faoa_sen', &
        isc, iec, jsc, jec, ice_ocean_boundary%t_flux, areacor=med2mod_areacor, rc=rc)
   if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
   !----
   ! evaporation flux (W/m2)
   !----
-  call state_getimport(importState, 'mean_evap_rate', &
+  call state_getimport(importState, 'Foxx_evap', &
        isc, iec, jsc, jec, ice_ocean_boundary%q_flux, areacor=med2mod_areacor, rc=rc)
   if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
-  call state_getimport(importState, 'Faxa_evap', &
+  call state_getimport(importState, 'Faoa_evap', &
        isc, iec, jsc, jec, ice_ocean_boundary%q_flux, areacor=med2mod_areacor, rc=rc)
   if (ChkErr(rc,__LINE__,u_FILE_u)) return