Changeset 839


Ignore:
Timestamp:
Aug 31, 2007, 11:41:13 AM (17 years ago)
Author:
lmdzadmin
Message:

Appel simulateur ISCCP au cas ou "#define histISCCP"
IM

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/physiq.F

    r828 r839  
    25352535cIM calcul nuages par le simulateur ISCCP
    25362536c
     2537#ifdef histISCCP
    25372538      IF (ok_isccp) THEN
    25382539cIM appel simulateur toutes les  NINT(freq_ISCCP/dtime) heures
    … …  
    25412542       ENDIF !(MOD(itap,NINT(freq_ISCCP/dtime))
    25422543      ENDIF !ok_isccp
     2544#endif
    25432545
    25442546c   On prend la somme des fractions nuageuses et des contenus en eau

  • LMDZ4/trunk/libf/phytherm/physiq.F

    r833 r839  
    26332633cIM calcul nuages par le simulateur ISCCP
    26342634c
     2635#ifdef histISCCP
    26352636      IF (ok_isccp) THEN
    26362637cIM appel simulateur toutes les  NINT(freq_ISCCP/dtime) heures
    … …  
    26392640       ENDIF !(MOD(itap,NINT(freq_ISCCP/dtime))
    26402641      ENDIF !ok_isccp
     2642#endif
    26412643
    26422644c   On prend la somme des fractions nuageuses et des contenus en eau
Note: See TracChangeset for help on using the changeset viewer.