Changeset 140 for trunk/NEMO/LIM_SRC

Timestamp:

2004-10-19T15:26:07+02:00 (20 years ago)

Author:

opalod

Message:

CL + CT: UPDATE085: Move the initialization of evap, fr1_i0, fr2_i1 out of the conditional cpp key so it is done in all cases

File:

• trunk/NEMO/LIM_SRC/icestp.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/icestp.F90

@@ -254 +254 @@
          tprecip (:,:) = 0.e0 
          sprecip (:,:) = 0.e0
+         fr1_i0  (:,:) = 0.e0
+         fr2_i0  (:,:) = 0.e0
+         evap    (:,:) = 0.e0
 #if defined key_coupled 
          rrunoff (:,:) = 0.e0
@@ -260 +263 @@
          qla_ice (:,:) = 0.e0
          dqla_ice(:,:) = 0.e0
-         fr1_i0  (:,:) = 0.e0
-         fr2_i0  (:,:) = 0.e0
-         evap    (:,:) = 0.e0
 #endif