Changeset 1038

Timestamp:

Oct 28, 2008, 6:14:48 PM (16 years ago)

Author:

lmdzadmin

Message:

Correction appel simulateur ISCCP a la frequence freq_ISCCP
IM

File:

• LMDZ4/trunk/libf/phylmd/write_histISCCP.h (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/write_histISCCP.h

@@ -4 +4 @@
       IF (ok_isccp) THEN
 c
+       IF (MOD(itap,NINT(freq_ISCCP/dtime)).EQ.0) THEN
+c
        ndex2d = 0
        ndex3d = 0
@@ -38 +40 @@
          IF(top_height.LE.2) THEN
           DO i=1, klon
+c281008 beg
+c          print*,'write_ISCCP i n nbsunlit',i,n,nbsunlit(1,i,n)
+c281008 end
+c
            IF(nbsunlit(1,i,n).NE.0.) THEN
             fq_is_true(i,k,l,n)=
@@ -206 +212 @@
        endif
 
+       ENDIF !(MOD(itap,NINT(freq_ISCCP/dtime)).EQ.0) THEN
+
       ENDIF !ok_isccp