Changeset 645 for LMDZ4/trunk/libf/phylmd/physiq.F

Timestamp:

May 27, 2005, 12:01:52 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Mauvais positionnement des initialisations, les variables étaient
remises a zero a chaque passage dans la physique
LF

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -42 +42 @@
 #define histmth
 #define histins
-c#define histISCCP
-c#define histREGDYN
-c#define histmthNMC
+#define histISCCP
+#define histREGDYN
+#define histmthNMC
 c======================================================================
 c    modif   ( P. Le Van ,  12/10/98 )
@@ -1230 +1230 @@
 #include "FCTTRE.h"
 c======================================================================
-!rv
-      u10m(:,:)=0.
-      v10m(:,:)=0.
-      t2m(:,:)=0.
-      q2m(:,:)=0.
-      ffonte(:,:)=0.
-      fqcalving(:,:)=0.
-      piz_ae(:,:,:)=0.
-      tau_ae(:,:,:)=0.
-      cg_ae(:,:,:)=0.
-      rain_con(:)=0.
-      snow_con(:)=0.
-      bl95_b0=0.
-      bl95_b1=0.
-      topswai(:)=0.
-      topswad(:)=0.
-      solswai(:)=0.
-      solswad(:)=0.
-!rv
-! anne
-      d_u_con(:,:) = 0.0
-      d_v_con(:,:) = 0.0
-      rnebcon0(:,:) = 0.0
-      clwcon0(:,:) = 0.0
-      rnebcon(:,:) = 0.0
-      clwcon(:,:) = 0.0
-      paire_ter(:) = 0.0
-      nhistoW(:,:,:,:) = 0.0
-      histoW(:,:,:,:) = 0.0
-! fin anne
-
-cym
-      wfbils(:,:)=0
-cym      
       modname = 'physiq'
       IF (if_ebil.ge.1) THEN
@@ -1288 +1254 @@
        IF (debut) THEN
 C
+!rv
+         u10m(:,:)=0.
+         v10m(:,:)=0.
+         t2m(:,:)=0.
+         q2m(:,:)=0.
+         ffonte(:,:)=0.
+         fqcalving(:,:)=0.
+         piz_ae(:,:,:)=0.
+         tau_ae(:,:,:)=0.
+         cg_ae(:,:,:)=0.
+         rain_con(:)=0.
+         snow_con(:)=0.
+         bl95_b0=0.
+         bl95_b1=0.
+         topswai(:)=0.
+         topswad(:)=0.
+         solswai(:)=0.
+         solswad(:)=0.
+!rv
+! anne
+         d_u_con(:,:) = 0.0
+         d_v_con(:,:) = 0.0
+         rnebcon0(:,:) = 0.0
+         clwcon0(:,:) = 0.0
+         rnebcon(:,:) = 0.0
+         clwcon(:,:) = 0.0
+         paire_ter(:) = 0.0
+         nhistoW(:,:,:,:) = 0.0
+         histoW(:,:,:,:) = 0.0
+! fin anne
+
+cym
+         wfbils(:,:)=0
+cym      
          IF (if_ebil.ge.1) d_h_vcol_phy=0.
 c