Changeset 1471 for trunk/NEMO/LIM_SRC_3/ice.F90

Timestamp:

2009-06-11T16:27:34+02:00 (15 years ago)

Author:

smasson

Message:

remove useless albege,albecn,tauc,scal0,reslum in LIM2/3, see ticket:454

File:

• trunk/NEMO/LIM_SRC_3/ice.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC_3/ice.F90

@@ -332 +332 @@
       fhmec         !: Heat flux due to snow loss during compression
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::       &  !:
-      albege ,   &  !: Albedo of the snow or ice (only for outputs)
-      albecn ,   &  !: Albedo of the ocean (only for outputs)
-      tauc          !: Cloud optical depth
-
    ! temporary arrays for dummy version of the code
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &  !:
@@ -382 +377 @@
       vt_i_typ           !: total volume contained in each ice type
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpsmax) ::   &  !:
-      scal0              !: ???
-
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,nlay_s,jpl) :: & !:
       t_s,            &  !: Snow temperatures (K)
@@ -396 +388 @@
       e_i,            &  !: Ice thermal contents [ Joules*10^9 ]
       s_i                !: Ice salinities
-
-   REAL(wp), DIMENSION(jpi,jpj,0:jpkmax+1) ::    &  !:
-      reslum        !: Relative absorption of solar radiation in each ocean level
 
    !!--------------------------------------------------------------------------