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/isfcavmlt.F90

    r11852 r11876  
    122122      pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux  ( >0 out) 
    123123      ! 
     124      ! output freezing point at the interface 
     125      CALL iom_put('isftfrz_cav', ztfrz ) 
     126      ! 
    124127   END SUBROUTINE isfcav_mlt_spe 
    125128 
     
    163166      pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp                 ! heat content flux ( > 0 out ) 
    164167      ! 
    165       ! output thermal driving 
     168      ! output thermal driving and freezinpoint at the ice shelf interface 
    166169      CALL iom_put('isfthermald_cav', zthd ) 
     170      CALL iom_put('isftfrz_cav'    , ztfrz ) 
    167171      ! 
    168172   END SUBROUTINE isfcav_mlt_2eq 
     
    248252      CALL iom_put('qconisf', zqcon(:,:) * mskisf_cav(:,:) ) 
    249253      ! 
    250       ! output thermal driving 
    251       CALL iom_put('isfthermald_cav', zthd(:,:) * mskisf_cav(:,:) ) 
     254      ! output thermal driving and freezing point at the interface 
     255      CALL iom_put('isfthermald_cav', zthd (:,:) * mskisf_cav(:,:) ) 
     256      CALL iom_put('isftfrz_cav'    , ztfrz(:,:) * mskisf_cav(:,:) ) 
    252257      ! 
    253258   END SUBROUTINE isfcav_mlt_3eq 
     
    302307      pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux  ( >0 out) 
    303308      ! 
     309      CALL iom_put('isftfrz_cav', ztfrz * mskisf_cav(:,:) ) 
    304310   END SUBROUTINE isfcav_mlt_oasis 
    305311 
Note: See TracChangeset for help on using the changeset viewer.