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

Ignore:
Timestamp:
2019-11-04T19:00:27+01:00 (4 years ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: fix WED025 restartability, finish removing useless USE, remove useless lbc_lnk

File:
1 edited

Legend:

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

    r11823 r11852  
    1212   !!   isfrst : read/write iceshelf variables in/from restart 
    1313   !!---------------------------------------------------------------------- 
     14   USE isf                             ! ice shelf variable 
     15   USE lib_mpp, ONLY: mpp_sum, mpp_max ! mpp routine 
     16   USE domvvl , ONLY: dom_vvl_zgr      ! vertical scale factor interpolation 
     17   ! 
    1418   USE oce            ! ocean dynamics and tracers 
    15    USE isf            ! ice shelf variable 
    16    USE isfutils       ! debuging 
    17    USE lib_mpp        ! mpp routine 
    18    USE domvvl         ! vertical scale factor interpolation 
    19    ! 
    2019   USE in_out_manager ! I/O manager 
    2120   USE iom            ! I/O library 
     
    4746CONTAINS 
    4847   SUBROUTINE isfcpl_init() 
     48      ! 
     49      ! start on an euler time step 
     50      neuler = 0 
    4951      !  
    5052      CALL isf_alloc_cpl() 
     
    5759      ! 
    5860      ! correction of the horizontal divergence and associated temp. and salt content flux 
     61      ! Need to : - include in the cpl cons the risfcpl_vol/tsc contribution 
     62      !           - decide how to manage thickness level change in conservation 
    5963      CALL isfcpl_vol() 
    6064      ! 
     
    6670      vn(:,:,:) = vn(:,:,:) * vmask(:,:,:) 
    6771      ! 
    68       ! Need to : - include in the cpl cons the risfcpl_vol/tsc contribution 
    69       !           - decide how to manage thickness level change in conservation 
     72      ! all before fields set to now values 
     73      tsb  (:,:,:,:) = tsn  (:,:,:,:) 
     74      ub   (:,:,:)   = un   (:,:,:) 
     75      vb   (:,:,:)   = vn   (:,:,:) 
     76      sshb (:,:)     = sshn (:,:) 
     77      e3t_b(:,:,:)   = e3t_n(:,:,:) 
     78  
     79      ! prepare writing restart 
     80      IF( lwxios ) THEN 
     81         CALL iom_set_rstw_var_active('ssmask') 
     82         CALL iom_set_rstw_var_active('tmask') 
     83         CALL iom_set_rstw_var_active('e3t_n') 
     84         CALL iom_set_rstw_var_active('e3u_n') 
     85         CALL iom_set_rstw_var_active('e3v_n') 
     86      END IF 
    7087      ! 
    7188   END SUBROUTINE isfcpl_init 
     
    92109   END SUBROUTINE isfcpl_rst_write 
    93110 
    94    SUBROUTINE isfcpl_ssh 
     111   SUBROUTINE isfcpl_ssh() 
    95112      !!----------------------------------------------------------------------  
    96113      !!                   ***  ROUTINE iscpl_ssh  *** 
     
    153170      ! 
    154171      ! recompute the vertical scale factor, depth and water thickness 
    155       CALL dom_vvl_zgr 
     172      CALL dom_vvl_zgr() 
    156173      ! 
    157174   END SUBROUTINE isfcpl_ssh 
    158175 
    159    SUBROUTINE isfcpl_tra 
     176   SUBROUTINE isfcpl_tra() 
    160177      !!----------------------------------------------------------------------  
    161178      !!                   ***  ROUTINE iscpl_tra  *** 
     
    316333   END SUBROUTINE isfcpl_tra 
    317334 
    318    SUBROUTINE isfcpl_vol 
     335   SUBROUTINE isfcpl_vol() 
    319336      !!----------------------------------------------------------------------  
    320337      !!                   ***  ROUTINE iscpl_vol  *** 
     
    402419   END SUBROUTINE isfcpl_vol 
    403420 
    404    SUBROUTINE isfcpl_cons 
     421   SUBROUTINE isfcpl_cons() 
    405422      !!----------------------------------------------------------------------  
    406423      !!                   ***  ROUTINE iscpl_cons  *** 
Note: See TracChangeset for help on using the changeset viewer.