Changeset 1035 for LMDZ4/trunk


Ignore:
Timestamp:
Oct 28, 2008, 3:45:24 PM (16 years ago)
Author:
lmdzadmin
Message:

Bug physiq: RDAY a la place de 86400. pour calcul tendances dues au rayonnement (FC)
Ajout test coherence flags Tiedtke et simulateur ISCCP
FC/IM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/physiq.F

    r1032 r1035  
    12541254     .   iflag_coupl,iflag_clos,iflag_wake
    12551255      print*,'CYCLE_DIURNE', cycle_diurne
    1256 
    1257 c
     1256c
     1257      IF (iflag_con.EQ.2.AND.iflag_cldcon.NE.-1) THEN
     1258         abort_message = 'Tiedtke convection needs iflag_cldcon=-1 '
     1259         CALL abort_gcm (modname,abort_message,1)
     1260      ENDIF
     1261c
     1262      IF(ok_isccp.AND.iflag_con.LE.2) THEN
     1263         abort_message = 'iflag_con >= 3 for KE and ISCCP simulator'
     1264         CALL abort_gcm (modname,abort_message,1)
     1265      ENDIF
    12581266c
    12591267c Initialiser les compteurs:
     
    26832691      ENDIF
    26842692
    2685 c
    26862693cIM calcul nuages par le simulateur ISCCP
    26872694c
    26882695#ifdef histISCCP
    26892696      IF (ok_isccp) THEN
     2697c
     2698c
    26902699cIM appel simulateur toutes les  NINT(freq_ISCCP/dtime) heures
    26912700       IF (MOD(itap,NINT(freq_ISCCP/dtime)).EQ.0) THEN
     
    27002709
    27012710      ENDIF
    2702 
    27032711c
    27042712c 2. NUAGES STARTIFORMES
     
    29412949      DO i = 1, klon
    29422950         t_seri(i,k) = t_seri(i,k)
    2943      .               + (heat(i,k)-cool(i,k)) * dtime/86400.
     2951     .               + (heat(i,k)-cool(i,k)) * dtime/RDAY
    29442952      ENDDO
    29452953      ENDDO
Note: See TracChangeset for help on using the changeset viewer.