Changeset 14072 for NEMO/trunk/src/OCE/ISF/isfrst.F90
- Timestamp:
- 2020-12-04T08:48:38+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ISF/isfrst.F90
r14053 r14072 20 20 PRIVATE 21 21 22 PUBLIC isfrst_read, isfrst_write ! iceshelf restart read and write 22 PUBLIC isfrst_read, isfrst_write ! iceshelf restart read and write 23 23 24 24 !!---------------------------------------------------------------------- … … 28 28 !!---------------------------------------------------------------------- 29 29 CONTAINS 30 30 31 31 SUBROUTINE isfrst_read( cdisf, ptsc, pfwf, ptsc_b, pfwf_b ) 32 32 !!--------------------------------------------------------------------- … … 63 63 END SUBROUTINE isfrst_read 64 64 65 65 66 66 SUBROUTINE isfrst_write( kt, cdisf, ptsc, pfwf ) 67 67 !!--------------------------------------------------------------------- … … 95 95 ! 96 96 END SUBROUTINE isfrst_write 97 97 98 98 !!====================================================================== 99 99 END MODULE isfrst
Note: See TracChangeset
for help on using the changeset viewer.