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 14072 for NEMO/trunk/src/OCE/ISF/isfrst.F90 – NEMO

Ignore:
Timestamp:
2020-12-04T08:48:38+01:00 (3 years ago)
Author:
laurent
Message:

Merging branch "2020/dev_r13648_ASINTER-04_laurent_bulk_ice", ticket #2369

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ISF/isfrst.F90

    r14053 r14072  
    2020   PRIVATE 
    2121 
    22    PUBLIC isfrst_read, isfrst_write ! iceshelf restart read and write  
     22   PUBLIC isfrst_read, isfrst_write ! iceshelf restart read and write 
    2323 
    2424   !!---------------------------------------------------------------------- 
     
    2828   !!---------------------------------------------------------------------- 
    2929CONTAINS 
    30     
     30 
    3131   SUBROUTINE isfrst_read( cdisf, ptsc, pfwf, ptsc_b, pfwf_b ) 
    3232      !!--------------------------------------------------------------------- 
     
    6363   END SUBROUTINE isfrst_read 
    6464 
    65     
     65 
    6666   SUBROUTINE isfrst_write( kt, cdisf, ptsc, pfwf ) 
    6767      !!--------------------------------------------------------------------- 
     
    9595      ! 
    9696   END SUBROUTINE isfrst_write 
    97     
     97 
    9898   !!====================================================================== 
    9999END MODULE isfrst 
Note: See TracChangeset for help on using the changeset viewer.