Changeset 151 for trunk/NEMO

Timestamp:

2004-10-19T15:32:57+02:00 (20 years ago)

Author:

opalod

Message:

CL + CT: BUGFIX096: Move the declaration of evap array to have it in all cases

File:

• trunk/NEMO/OPA_SRC/SBC/flx_oce.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/flx_oce.F90

@@ -38 +38 @@
       dqns_ice ,      &  !: total non solar sensibility over ice (LW+SEN+LA)
       tn_ice   ,      &  !: ice surface temperature
-#if ! defined key_coupled
+      evap     ,      &  !: evaporation over ocean
       fr1_i0   ,      &  !: 1st part of the fraction of sol. rad.  which penetrate inside the ice cover
       fr2_i0   ,      &  !: 2nd part of the fraction of sol. rad.  which penetrate inside the ice cover 
+#if ! defined key_coupled
       qla_ice  ,      &  !: latent flux over ice  
-      dqla_ice ,      &  !: latent sensibility over ice
-      evap               !: evaporation over ocean
+      dqla_ice           !: latent sensibility over ice
 #else
       rrunoff  ,      &  !: runoff