Changeset 1143 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/isccp_cloud_types.F

Timestamp:

Apr 7, 2009, 6:41:02 PM (15 years ago)

Author:

jghattas

Message:

Recuperation des developpements fait uniquement sur la branche LMDZ4_V4_patches :

• ajoute de la nouvelle flag ok_dynzon
• ajoute du parametre aer_type
• optimisation : isccp_cloud_types.F

+ bug pour le slab dans conf_phys.F90

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/isccp_cloud_types.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/isccp_cloud_types.F

@@ -530 +530 @@
 !     Initialised frac_out to zero
 
-      do ibox=1,ncol
-        do ilev=1,nlev
+      do ilev=1,nlev
+        do ibox=1,ncol
           do j=1,npoints
             frac_out(j,ibox,ilev)=0.0
@@ -1219 +1219 @@
           enddo
           do 29 ilev=1,nlev-1
-            !cdir nodep
+!cdir nodep
             do j=1,npoints 
               if ((at(j,ilev)   .ge. tb(j,ibox) .and.