Ignore:
Timestamp:
2020-06-13T16:51:31+02:00 (4 months ago)
Author:
laurent
Message:

CD, CE & CH over ocean "iom_putable" when ln_blk + improving STATION_ASF testcase/

File:
1 edited

Legend:

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

    r12925 r13108  
    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) 
     633       
    630634      IF( ln_skin_cs .OR. ln_skin_wl ) THEN 
    631635         !! ptsk and pssq have been updated!!! 
     
    878882         Ce_ice(:,:) = Ch_ice(:,:)       ! sensible and latent heat transfer coef. are considered identical 
    879883      ENDIF 
    880  
    881       !! IF ( iom_use("Cd_ice") ) CALL iom_put("Cd_ice", Cd_ice)   ! output value of pure ice-atm. transfer coef. 
    882       !! IF ( iom_use("Ch_ice") ) CALL iom_put("Ch_ice", Ch_ice)   ! output value of pure ice-atm. transfer coef. 
    883  
     884       
     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) 
     888       
    884889      ! local scalars ( place there for vector optimisation purposes) 
    885890      zcd_dui(:,:) = wndm_ice(:,:) * Cd_ice(:,:) 
Note: See TracChangeset for help on using the changeset viewer.