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

Ignore:
Timestamp:
2019-11-19T18:30:57+01:00 (4 years ago)
Author:
mathiot
Message:

ENHANCE-02_ISF_nemo: add comments, improve memory usage of ln_isfcpl_cons option, fix issue in ISOMIP+ configuration

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfutils.F90

    r11852 r11931  
    1414   USE iom           , ONLY: iom_open, iom_get, iom_close, jpdom_data ! read input file 
    1515   USE lib_fortran   , ONLY: glob_sum, glob_min, glob_max             ! compute global value 
    16    USE dom_oce       , ONLY: jpi,jpj,jpk                              ! domain size 
     16   USE par_oce       , ONLY: jpi,jpj,jpk                              ! domain size 
    1717   USE in_out_manager, ONLY: wp, lwp, numout                          ! miscelenious 
    1818 
    … …  
    3535      !! ** Purpose : read input file 
    3636      !! 
    37       !!-------------------------------------------------------------------- 
    3837      !!-------------------------- OUT ------------------------------------- 
    3938      REAL(wp), DIMENSION(jpi,jpj), INTENT(  out) :: pvar          ! output variable 
    … …  
    5756      !! ** Purpose : add debug print 
    5857      !! 
    59       !!-------------------------------------------------------------------- 
    60       !!-------------------------- OUT ------------------------------------- 
    6158      !!-------------------------- IN  ------------------------------------- 
    6259      CHARACTER(LEN=256)          , INTENT(in   ) :: cdtxt 
    … …  
    8279      !! ** Purpose : add debug print 
    8380      !! 
    84       !!-------------------------------------------------------------------- 
    85       !!-------------------------- OUT ------------------------------------- 
    8681      !!-------------------------- IN  ------------------------------------- 
    8782      CHARACTER(LEN=256)              , INTENT(in   ) :: cdtxt 
Note: See TracChangeset for help on using the changeset viewer.