Changeset 556

Timestamp:

Oct 27, 2004, 11:40:54 AM (20 years ago)

Author:

lmdzadmin

Message:

Initialisations diverses necessaires au portage Prism AC
LF

Location:

LMDZ.3.3/branches/rel-LF/libf/phylmd

Files:

• interface_surf.F90 (modified) (2 diffs)
• physiq.F (modified) (1 diff)
• radlwsw.F (modified) (2 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

@@ -2622 +2622 @@
 
 #include "YOETHF.inc"
-#include "FCTTRE.inc"
+!rv#include "FCTTRE.inc"
 #include "indicesol.inc"
 !IM cf JLD
@@ -2679 +2679 @@
   logical,save         :: first = .true.,second=.false.
   real                 :: coeff_rel
+#include "FCTTRE.inc"
 
 

LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

@@ -970 +970 @@
 #include "YOETHF.h"
 #include "FCTTRE.h"
+       
 c======================================================================
+!rv initialisations diverses
+      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.
+!rv
       modname = 'physiq'
       IF (if_ebil.ge.1) THEN

LMDZ.3.3/branches/rel-LF/libf/phylmd/radlwsw.F

@@ -163 +163 @@
       REAL*8 ztopswai(kdlon), zsolswai(kdlon) ! dito, indirect
 cjq-end
+!rv
+      tauae(:,:,:)=0.
+      pizae(:,:,:)=0.
+      cgae(:,:,:)=0.
+!rv
       
 c
@@ -543 +548 @@
       REAL*8 ZFSUPAI(KDLON,KFLEV+1)
       REAL*8 ZFSDNAI(KDLON,KFLEV+1)
+      logical initialized
       SAVE ZFSUPAD, ZFSDNAD, ZFSUPAI, ZFSDNAI ! aerosol fluxes
+!rv
+      save flag_aer
+      data initialized/.false./
 cjq-end
+      if(.not.initialized) then
+        flag_aer=0.
+        initialized=.TRUE.
+      endif
+!rv
       
 c