Changeset 834 for trunk/NEMO/LIM_SRC_3/limistate.F90
- Timestamp:
- 2008-03-07T18:11:35+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limistate.F90
r825 r834 6 6 #if defined key_lim3 7 7 !!---------------------------------------------------------------------- 8 !! 'key_lim3' : LIMsea-ice model8 !! 'key_lim3' : LIM3 sea-ice model 9 9 !!---------------------------------------------------------------------- 10 10 !! lim_istate : Initialisation of diagnostics ice variables … … 21 21 USE dom_ice 22 22 USE ice 23 USE limicepoints24 23 USE lbclnk 25 24 … … 72 71 73 72 !! * Local variables 74 INTEGER :: ji, jj, jk, jl , jm! dummy loop indices73 INTEGER :: ji, jj, jk, jl ! dummy loop indices 75 74 76 75 REAL(wp) :: zidto, & ! temporary scalar 77 zs0, ztf, zbin, zai, zvi, zvs, zmi, zms,&76 zs0, ztf, zbin, & 78 77 zeps6, zeps, ztmelts, & 79 78 epsi06
Note: See TracChangeset
for help on using the changeset viewer.