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 12062 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcpl.F90 – NEMO

Ignore:
Timestamp:
2019-12-05T10:57:46+01:00 (4 years ago)
Author:
mathiot
Message:

changes required by N.J. review

File:
1 edited

Legend:

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

    r11987 r12062  
    2525   PRIVATE 
    2626 
    27    PUBLIC isfcpl_rst_write, isfcpl_init  ! iceshelf restart read and write  
    28    PUBLIC isfcpl_ssh, isfcpl_tra, isfcpl_vol, isfcpl_cons 
     27   PUBLIC isfcpl_rst_write, isfcpl_init                    ! iceshelf restart read and write  
     28   PUBLIC isfcpl_ssh, isfcpl_tra, isfcpl_vol, isfcpl_cons  ! iceshelf correction for ssh, tra, dyn and conservation  
    2929 
    3030   TYPE isfcons 
     
    4848   SUBROUTINE isfcpl_init() 
    4949      !!--------------------------------------------------------------------- 
     50      !!                   ***  ROUTINE iscpl_init  *** 
     51      !!  
     52      !! ** Purpose : correct ocean state for new wet cell and horizontal divergence  
     53      !!              correction for the dynamical adjustement 
     54      !! 
     55      !! ** Action : - compute ssh on new wet cell 
     56      !!             - compute T/S on new wet cell 
     57      !!             - compute horizontal divergence correction as a volume flux 
     58      !!             - compute the T/S/vol correction increment to keep trend to 0 
    5059      !! 
    5160      !!--------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.