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/isfrst.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/isfrst.F90

    r11852 r11931  
    1111   !!---------------------------------------------------------------------- 
    1212   ! 
    13    USE dom_oce, ONLY: jpi,jpj,jpk,jpts ! time and space domain 
     13   USE par_oce, ONLY: jpi,jpj,jpk,jpts ! time and space domain 
    1414   ! 
    1515   USE in_out_manager ! I/O manager 
    … …  
    3131   SUBROUTINE isfrst_read(cdisf, ptsc, pfwf, ptsc_b, pfwf_b ) 
    3232      !!--------------------------------------------------------------------- 
     33      !! 
    3334      !!   isfrst_read : read iceshelf variables from restart 
    34       !!--------------------------------------------------------------------- 
     35      !! 
    3536      !!-------------------------- OUT -------------------------------------- 
    3637      REAL(wp), DIMENSION(jpi,jpj)     , INTENT(  out) :: pfwf_b 
    3738      REAL(wp), DIMENSION(jpi,jpj,jpts), INTENT(  out) :: ptsc_b 
    3839      !!-------------------------- IN  -------------------------------------- 
    39       CHARACTER(LEN=256)               , INTENT(in   ) :: cdisf 
     40      CHARACTER(LEN=3)                 , INTENT(in   ) :: cdisf 
    4041      REAL(wp), DIMENSION(jpi,jpj)     , INTENT(in   ) :: pfwf 
    4142      REAL(wp), DIMENSION(jpi,jpj,jpts), INTENT(in   ) :: ptsc 
    … …  
    6667      ENDIF 
    6768 
    68       CALL FLUSH(numout) 
    69  
    7069   END SUBROUTINE isfrst_read 
    7170   !  
    7271   SUBROUTINE isfrst_write(kt, cdisf, ptsc, pfwf ) 
    7372      !!--------------------------------------------------------------------- 
     73      !! 
    7474      !!   isfrst_write : write iceshelf variables in restart 
    75       !!--------------------------------------------------------------------- 
    76       !!-------------------------- OUT -------------------------------------- 
     75      !! 
    7776      !!-------------------------- IN  -------------------------------------- 
    7877      INTEGER                          , INTENT(in   ) :: kt 
    79       CHARACTER(LEN=256)               , INTENT(in   ) :: cdisf 
     78      CHARACTER(LEN=3)                 , INTENT(in   ) :: cdisf 
    8079      REAL(wp), DIMENSION(jpi,jpj)     , INTENT(in   ) :: pfwf 
    8180      REAL(wp), DIMENSION(jpi,jpj,jpts), INTENT(in   ) :: ptsc 
Note: See TracChangeset for help on using the changeset viewer.