Ignore:
Timestamp:
2019-11-08T12:26:42+01:00 (11 months ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: add timing in the main isf routine + various bug fixes + cosmetic changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfparmlt.F90

    r11852 r11876  
    105105      pqoce(:,:) =   pqfwf(:,:) * rLfusisf             ! ocean/ice shelf flux assume to be equal to latent heat flux 
    106106      pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux  
     107      CALL iom_put('isftfrz_par', ztfrz ) 
    107108      ! 
    108109   END SUBROUTINE isfpar_mlt_spe 
     
    154155      ! output thermal driving 
    155156      CALL iom_put('isfthermald_par',( ztfrz(:,:) - ztavg(:,:) ) * mskisf_par(:,:)) 
     157      CALL iom_put('isftfrz_par', ztfrz ) 
    156158      ! 
    157159   END SUBROUTINE isfpar_mlt_bg03 
     
    210212      pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux  ( >0 out ) 
    211213      ! 
     214      CALL iom_put('isftfrz_par', ztfrz ) 
     215      ! 
    212216   END SUBROUTINE isfpar_mlt_oasis 
    213217 
Note: See TracChangeset for help on using the changeset viewer.