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 12077 for NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/ISF/isfdiags.F90 – NEMO

Ignore:
Timestamp:
2019-12-05T18:41:39+01:00 (4 years ago)
Author:
mathiot
Message:

include ENHANCE-02_ISF_nemo in UKMO merge branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/ISF/isfdiags.F90

    r12068 r12077  
    11MODULE isfdiags 
    22   !!====================================================================== 
    3    !!                       ***  MODULE  sbcisf  *** 
    4    !! Surface module :  update surface ocean boundary condition under ice 
    5    !!                   shelf 
     3   !!                       ***  MODULE  isfdiags  *** 
     4   !! ice shelf diagnostics module :  manage the 2d and 3d flux outputs from the ice shelf module 
    65   !!====================================================================== 
    76   !! History :  3.2  !  2011-02  (C.Harris  ) Original code isf cav 
     
    1615   USE in_out_manager ! I/O manager 
    1716   USE dom_oce 
    18    USE isf            ! ice shelf variable 
    19    USE isfutils 
     17   USE isf_oce        ! ice shelf variable 
    2018   USE iom            !  
    2119 
     
    3836      !!                  ***  ROUTINE isf_diags_flx *** 
    3937      !! 
    40       !! ** Purpose :  
     38      !! ** Purpose : manage the 2d and 3d flux outputs of the ice shelf module 
     39      !!              fwf, latent heat flux, heat content flux, oce->ice heat flux 
    4140      !! 
    4241      !!---------------------------------------------------------------------- 
     
    5958      cvarqhc  = 'qhcisf_'//cdisf  ; cvarqhc3d  = 'qhcisf3d_'//cdisf 
    6059      ! 
    61       ! output 2d melt rate, latent heat and heat content flux 
    62       CALL iom_put( TRIM(cvarqfwf), pqfwf(:,:) )   ! isf mass flux (opposite sign) 
    63       CALL iom_put( TRIM(cvarqoce), pqoce(:,:) )   ! isf oce to ice   flux  (cpo*gt*dt) 
    64       CALL iom_put( TRIM(cvarqlat), pqlat(:,:) )   ! isf oce to ice   flux  (cpo*gt*dt) 
    65       CALL iom_put( TRIM(cvarqhc) , pqhc (:,:) )   ! isf heat content flux  (cpo*fwf*Tfrz) 
     60      ! output 2d melt rate, latent heat and heat content flux from the injected water 
     61      CALL iom_put( TRIM(cvarqfwf), pqfwf(:,:) )   ! mass         flux ( >0 out ) 
     62      CALL iom_put( TRIM(cvarqoce), pqoce(:,:) )   ! oce to ice   flux ( >0 out ) 
     63      CALL iom_put( TRIM(cvarqlat), pqlat(:,:) )   ! latent heat  flux ( >0 out ) 
     64      CALL iom_put( TRIM(cvarqhc) , pqhc (:,:) )   ! heat content flux ( >0 out ) 
    6665      ! 
    6766      ! output 3d Diagnostics 
     
    7776      !!                  ***  ROUTINE isf_diags_2dto3d *** 
    7877      !! 
    79       !! ** Purpose :  
     78      !! ** Purpose : compute the 3d flux outputs as they are injected into NEMO  
     79      !!              (ie uniformaly spread into the top boundary layer or parametrisation layer) 
    8080      !! 
    8181      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.