New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13110 for NEMO/trunk/src/OCE/SBC/sbcblk.F90 – NEMO

Ignore:
Timestamp:
2020-06-16T14:16:56+02:00 (2 years ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcblk.F90

    r13108 r13110  
    628628      END SELECT 
    629629 
    630       IF( iom_use("Cd_oce") ) CALL iom_put("Cd_oce", zcd_oce) 
    631       IF( iom_use("Ce_oce") ) CALL iom_put("Ce_oce", zce_oce) 
    632       IF( iom_use("Ch_oce") ) CALL iom_put("Ch_oce", zch_oce) 
     630      CALL iom_put("Cd_oce", zcd_oce) 
     631      CALL iom_put("Ce_oce", zce_oce) 
     632      CALL iom_put("Ch_oce", zch_oce) 
    633633       
    634634      IF( ln_skin_cs .OR. ln_skin_wl ) THEN 
     
    883883      ENDIF 
    884884       
    885       IF( iom_use("Cd_ice") ) CALL iom_put("Cd_ice", Cd_ice) 
    886       IF( iom_use("Ce_ice") ) CALL iom_put("Ce_ice", Ce_ice) 
    887       IF( iom_use("Ch_ice") ) CALL iom_put("Ch_ice", Ch_ice) 
     885      CALL iom_put("Cd_ice", Cd_ice) 
     886      CALL iom_put("Ce_ice", Ce_ice) 
     887      CALL iom_put("Ch_ice", Ch_ice) 
    888888       
    889889      ! local scalars ( place there for vector optimisation purposes) 
Note: See TracChangeset for help on using the changeset viewer.