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

Timestamp:

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

Author:

lmdzadmin

Message:

Initialisations diverses necessaires au portage Prism AC
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/radlwsw.F (modified) (2 diffs)

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