Changeset 88 for trunk/NEMO/LIM_SRC/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/ice.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/ice.F90

@@ -31 +31 @@
       resl   = 5.0e-05,  &  !: maximum value for the residual of relaxation
       cw     = 5.0e-03,  &  !: drag coefficient for oceanic stress
-      angvg  = 0.0    ,  &  !: turning angle for oceanic stress
+      angvg  = 0.e0   ,  &  !: turning angle for oceanic stress
       pstar  = 1.0e+04,  &  !: first bulk-rheology parameter
-      c_rhg  = 20.0   ,  &  !: second bulk-rhelogy parameter
-      etamn  = 0.0e+07,  &  !: minimun value for viscosity
-      creepl = 2.0e-08,  &  !: creep limit
-      ecc    = 2.0    ,  &  !: eccentricity of the elliptical yield curve
+      c_rhg  = 20.e0  ,  &  !: second bulk-rhelogy parameter
+      etamn  = 0.e+07,   &  !: minimun value for viscosity
+      creepl = 2.e-08,   &  !: creep limit
+      ecc    = 2.e0   ,  &  !: eccentricity of the elliptical yield curve
       ahi0   = 350.e0       !: sea-ice hor. eddy diffusivity coeff. (m2/s)
 
@@ -98 +98 @@
       tio_u, tio_v       !: two components of the ice-ocean stress (N/m2)
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,nsmax) ::   &  !:
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpsmax) ::   &  !:
       scal0              !: ???
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,nlayersp1) ::   &  !:
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jplayersp1) ::   &  !:
       tbif          !: Temperature inside the ice/snow layer
 
-   REAL(wp), DIMENSION(jpi,jpj,0:kmax+1) ::    &  !:
+   REAL(wp), DIMENSION(jpi,jpj,0:jpkmax+1) ::    &  !:
       reslum        !: Relative absorption of solar radiation in each ocean level