Changeset 13110 for NEMO/trunk

Timestamp:

2020-06-16T14:16:56+02:00 (4 years ago)

Author:

smasson

Message:

trunk: missing fields in field_def_nemo-oce.xml following [13108]

Location:

NEMO/trunk

Files:

• cfgs/SHARED/field_def_nemo-oce.xml (modified) (1 diff)
• src/OCE/SBC/sbcblk.F90 (modified) (2 diffs)

NEMO/trunk/cfgs/SHARED/field_def_nemo-oce.xml

@@ -373 +373 @@
           <field id="Ch_oce"      long_name="Sensible heat coefficient over open ocean"     standard_name="sensible_heat_coefficient_water"        unit=""  />          
 
+          <field id="Cd_ice"      long_name="Drag coefficient over ice"                     standard_name="drag_coefficient_ice"                 unit=""  />
+          <field id="Ce_ice"      long_name="Evaporaion coefficient over ice"               standard_name="evap_coefficient_ice"                 unit=""  />
+          <field id="Ch_ice"      long_name="Sensible heat coefficient over ice"            standard_name="sensible_heat_coefficient_ice"        unit=""  />          
+
           <!-- available key_oasis3 -->
           <field id="snow_ao_cea"  long_name="Snow over ice-free ocean (cell average)"   standard_name="snowfall_flux"                             unit="kg/m2/s"  />

NEMO/trunk/src/OCE/SBC/sbcblk.F90

@@ -628 +628 @@
       END SELECT
 
-      IF( iom_use("Cd_oce") ) CALL iom_put("Cd_oce", zcd_oce)
-      IF( iom_use("Ce_oce") ) CALL iom_put("Ce_oce", zce_oce)
-      IF( iom_use("Ch_oce") ) CALL iom_put("Ch_oce", zch_oce)
+      CALL iom_put("Cd_oce", zcd_oce)
+      CALL iom_put("Ce_oce", zce_oce)
+      CALL iom_put("Ch_oce", zch_oce)
       
       IF( ln_skin_cs .OR. ln_skin_wl ) THEN
@@ -883 +883 @@
       ENDIF
       
-      IF( iom_use("Cd_ice") ) CALL iom_put("Cd_ice", Cd_ice)
-      IF( iom_use("Ce_ice") ) CALL iom_put("Ce_ice", Ce_ice)
-      IF( iom_use("Ch_ice") ) CALL iom_put("Ch_ice", Ch_ice)
+      CALL iom_put("Cd_ice", Cd_ice)
+      CALL iom_put("Ce_ice", Ce_ice)
+      CALL iom_put("Ch_ice", Ch_ice)
       
       ! local scalars ( place there for vector optimisation purposes)