Changeset 4345 for branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limcat_1D.F90

Timestamp:

2014-01-10T16:59:04+01:00 (10 years ago)

Author:

clem

Message:

clean the glob_sum diags and make scalar.nc work

File:

• branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limcat_1D.F90 (modified) (1 diff)

branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limcat_1D.F90

@@ -44 +44 @@
       REAL(wp), DIMENSION(:),   INTENT(in)    ::   zhti, zhts, zai    ! input ice/snow variables
       REAL(wp), DIMENSION(:,:), INTENT(inout) ::   zht_i, zht_s, za_i ! output ice/snow variables
-      REAL(wp)                     ::   epsi06 = 1.0e-6
-      REAL(wp)                     ::   zc1, zc2, zc3, zx1, zdh   ! local scalars
+      REAL(wp) :: epsi06 = 1.0e-6
+      REAL(wp) :: zc1, zc2, zc3, zx1, zdh   ! local scalars
       REAL(wp), DIMENSION(0:jpl)   ::   zhi_max         !:Boundary of ice thickness categories in thickness space