change non-cesm field names for active atm

DeniseWorthen · Sep 4, 2023 · a28ef26 · a28ef26
1 parent 37815a5
commit a28ef26
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/config_src/drivers/nuopc_cap/mom_cap.F90 b/config_src/drivers/nuopc_cap/mom_cap.F90
@@ -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, "Faoa_evap"  , "will provide") !-> from atm
+  call fld_list_add(fldsToOcn_num, fldsToOcn, "Faxa_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, "Faoa_sen"   , "will provide") !-> from atm
+  call fld_list_add(fldsToOcn_num, fldsToOcn, "Faxa_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
@@ -179,7 +179,7 @@ subroutine mom_import(ocean_public, ocean_grid, importState, ice_ocean_boundary,
        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, 'Faoa_sen', &
+  call state_getimport(importState, 'Faxa_sen', &
        isc, iec, jsc, jec, ice_ocean_boundary%t_flux, areacor=med2mod_areacor, rc=rc)
   if (ChkErr(rc,__LINE__,u_FILE_u)) return
 
@@ -190,7 +190,7 @@ subroutine mom_import(ocean_public, ocean_grid, importState, ice_ocean_boundary,
        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, 'Faoa_evap', &
+  call state_getimport(importState, 'Faxa_evap', &
        isc, iec, jsc, jec, ice_ocean_boundary%q_flux, areacor=med2mod_areacor, rc=rc)
   if (ChkErr(rc,__LINE__,u_FILE_u)) return