Changeset 740 for LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/calcul_simulISCCP.h

Timestamp:

Dec 8, 2006, 12:45:43 PM (18 years ago)

Author:

lmdzadmin

Message:

Correction bogues: les ecrit_ sont des REALs lus dans conf_phys.F90 en
nombre de jours sauf pour ecrit_ins et ecrit_tra en secondes!
Les ecrit_ sont initialises dans conf_phys.F90 et peuvent etre modifies dans
physiq.def.
IM

File:

• LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/calcul_simulISCCP.h (modified) (3 diffs)

LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/calcul_simulISCCP.h

@@ -86 +86 @@
       close(99)
 c
-cIM: calcul coordonnees regions pour statistiques distribution 
-cIM: nuages en ftion du regime dynamique pour regions oceaniques
-c
-      IF (ok_regdyn) THEN !histREGDYN
-c
-#include "ini_coord_REGDYN.h"
-c
-      ENDIF !ok_regdyn
-c 
       ENDIF !debut
 c
@@ -140 +131 @@
       debugcol=0
 c
-cIM o500 ==> distribution nuage ftion du regime dynamique (vit. verticale a 500 hPa)
-c
-        DO k=1, klevm1
-        kp1=k+1
-c       PRINT*,'k, presnivs',k,presnivs(k), presnivs(kp1)
-        if(presnivs(k).GT.50000.AND.presnivs(kp1).LT.50000.) THEN
-         DO i=1, klon
-          o500(i)=omega(i,k)*RDAY/100.
-c         if(i.EQ.1) print*,' 500hPa lev',k,presnivs(k),presnivs(kp1)
-         ENDDO
-         GOTO 1000
-        endif 
-1000  continue
-      ENDDO
-c
 cIM recalcule les nuages vus par satellite, via le simulateur ISCCP
 c
@@ -184 +160 @@
      &     boxptop)
 c
-c calcul regime dynamique sur les regions fixees
-c
-       IF (ok_regdyn) THEN !histREGDYN
-c
-#include "calcul_REGDYN.h"
-c
-       ENDIF !(ok_regdyn) THEN !histREGDYN
 cIM    ENDIF !(MOD(itaprad,radpas).EQ.0) THEN
 cIM 010904 END