Changeset 486 for LMDZ.3.3/branches/rel-LF/libf/phylmd/isccp_cloud_types.F

Timestamp:

Dec 15, 2003, 6:50:41 PM (20 years ago)

Author:

lmdzadmin

Message:

Phasage avec la version de Ionela
IM/LF

File:

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

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

@@ -281 +281 @@
 c          write(6,'(a10)') 'ncol='
 c          write(6,'(8I10)') ncol
-           write(6,'(a10)') 'top_height='
-           write(6,'(8I10)') top_height
-           write(6,'(a10)') 'overlap='
-           write(6,'(8I10)') overlap
+c          write(6,'(a10)') 'top_height='
+c          write(6,'(8I10)') top_height
+c          write(6,'(a10)') 'overlap='
+c          write(6,'(8I10)') overlap
 c          write(6,'(a10)') 'emsfc_lw='
 c          write(6,'(8f10.2)') emsfc_lw
@@ -656 +656 @@
     
           ! Reset threshold 
-
-cIM pas besoin..memes val. de ran!      
-c         call ran0_vec(npoints,seed,ran)
+          call ran0_vec(npoints,seed,ran)
            
           do j=1,npoints