Changeset 557 for LMDZ4/trunk/libf/phylmd/radlwsw.F

Timestamp:

Oct 27, 2004, 12:14:46 PM (20 years ago)

Author:

lmdzadmin

Message:

Initialisations diverses heritees de LMDZ.3.3
LF

File:

• LMDZ4/trunk/libf/phylmd/radlwsw.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/radlwsw.F

@@ -166 +166 @@
       REAL*8 ztopswai(kdlon), zsolswai(kdlon) ! dito, indirect
 cjq-end
+!rv
+      tauae(:,:,:)=0.
+      pizae(:,:,:)=0.
+      cgae(:,:,:)=0.
+!rv
       
 c
@@ -546 +551 @@
       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