Changeset 1038


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/write_histISCCP.h

    r878 r1038  
    44      IF (ok_isccp) THEN
    55c
     6       IF (MOD(itap,NINT(freq_ISCCP/dtime)).EQ.0) THEN
     7c
    68       ndex2d = 0
    79       ndex3d = 0
     
    3840         IF(top_height.LE.2) THEN
    3941          DO i=1, klon
     42c281008 beg
     43c          print*,'write_ISCCP i n nbsunlit',i,n,nbsunlit(1,i,n)
     44c281008 end
     45c
    4046           IF(nbsunlit(1,i,n).NE.0.) THEN
    4147            fq_is_true(i,k,l,n)=
     
    206212       endif
    207213
     214       ENDIF !(MOD(itap,NINT(freq_ISCCP/dtime)).EQ.0) THEN
     215
    208216      ENDIF !ok_isccp
Note: See TracChangeset for help on using the changeset viewer.