Changeset 13110 for NEMO/trunk/src/OCE/SBC

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]

File:

• NEMO/trunk/src/OCE/SBC/sbcblk.F90 (modified) (2 diffs)

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)