Changeset 88 for trunk/NEMO/LIM_SRC/par_ice.F90

Timestamp:

2004-04-22T15:50:27+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE057 : # General syntax, alignement, comments corrections

# l_ctl alone replace the set (l_ctl .AND. lwp)
# Add of diagnostics which are activated when using l_ctl logical

File:

• trunk/NEMO/LIM_SRC/par_ice.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/par_ice.F90

@@ -7 +7 @@
    USE par_oce
 
-   INTEGER, PARAMETER ::   &  !:
-      kmax =   1    ,      &  !: ???
-      nsmax =  2              !: ???
+   IMPLICIT NONE
+   PUBLIC               ! allows par_oce and par_kind to be known in ice modules
 
-   !!-- Parameter providing the number of vertical ice layers
-   
-   INTEGER , PARAMETER ::      &  !:
-      nlayers   = 2 ,          &  !: ???
-      nlayersp1 = nlayers + 1     !: ???
+   INTEGER, PUBLIC, PARAMETER ::   &  !:
+      jpkmax =  1    ,      &  !: ???
+      jpsmax =  2              !: ???
 
-   ! maximum number of variable for output
-   INTEGER, PARAMETER ::   &  !:
-      noumax = 40             !: ???
-
-   ! Parameters for outputs to files "evolu" made by routine "informe" : ???
-   INTEGER, PARAMETER ::       &  !:
-      ninfmx = 100        ,    &  !: maximum number of key variables
-      nchinf = 5          ,    &  !: ???
-      nchsep = nchinf + 2         !: ???
+   INTEGER, PUBLIC, PARAMETER ::   &  !: 
+      jplayers   = 2 ,           &  !: number of vertical ice layers
+      jplayersp1 = jplayers + 1     !: ???
 
    !!======================================================================