Changeset 12077 for NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/ISF/isfcpl.F90

Timestamp:

2019-12-05T18:41:39+01:00 (4 years ago)

Author:

mathiot

Message:

include ENHANCE-02_ISF_nemo in UKMO merge branch

File:

• NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/ISF/isfcpl.F90 (modified) (4 diffs)

NEMO/branches/2019/UKMO_MERGE_2019/src/OCE/ISF/isfcpl.F90

@@ -12 +12 @@
    !!   isfrst : read/write iceshelf variables in/from restart
    !!----------------------------------------------------------------------
-   USE isf                              ! ice shelf variable
+   USE isf_oce                          ! ice shelf variable
    USE isfutils, ONLY : debug
    USE lib_mpp , ONLY: mpp_sum, mpp_max ! mpp routine
@@ -25 +25 @@
    PRIVATE
 
-   PUBLIC isfcpl_rst_write, isfcpl_init  ! iceshelf restart read and write 
-   PUBLIC isfcpl_ssh, isfcpl_tra, isfcpl_vol, isfcpl_cons
+   PUBLIC isfcpl_rst_write, isfcpl_init                    ! iceshelf restart read and write 
+   PUBLIC isfcpl_ssh, isfcpl_tra, isfcpl_vol, isfcpl_cons  ! iceshelf correction for ssh, tra, dyn and conservation 
 
    TYPE isfcons
@@ -48 +48 @@
    SUBROUTINE isfcpl_init(Kbb, Kmm, Kaa)
       !!---------------------------------------------------------------------
+      !!                   ***  ROUTINE iscpl_init  ***
+      !! 
+      !! ** Purpose : correct ocean state for new wet cell and horizontal divergence 
+      !!              correction for the dynamical adjustement
+      !!
+      !! ** Action : - compute ssh on new wet cell
+      !!             - compute T/S on new wet cell
+      !!             - compute horizontal divergence correction as a volume flux
+      !!             - compute the T/S/vol correction increment to keep trend to 0
       !!
       !!---------------------------------------------------------------------
@@ -480 +489 @@
       INTEGER  ::   jisf                              ! start, end and current position in the increment array
       INTEGER  ::   ingb, ifind                       ! 0/1 target found or need to be found 
-      INTEGER  ::   ingb, ifind, nisfl_area           ! global number of cell concerned by the wet->dry case 
+      INTEGER  ::   nisfl_area                        ! global number of cell concerned by the wet->dry case 
       INTEGER, DIMENSION(jpnij) :: nisfl              ! local  number of cell concerned by the wet->dry case
       !