Changeset 943

Timestamp:

Apr 11, 2008, 2:32:17 PM (17 years ago)

Author:

lmdzadmin

Message:

Ajout coordonnees geographiques et pourcentages pour les plantages
IM

Location:

LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd

Files:

• hgardfou.F (modified) (7 diffs)
• physiq.F (modified) (1 diff)

LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/hgardfou.F

@@ -2 +2 @@
 ! $Header$
 !
-      SUBROUTINE hgardfou (t,tsol,text)
+      SUBROUTINE hgardfou (rlon,rlat,pctsrf,t,tsol,text)
       use dimphy
       IMPLICIT none
@@ -8 +8 @@
 c Verifier la temperature
 c======================================================================
-cym#include "dimensions.h"
+#include "dimensions.h"
 cym#include "dimphy.h"
 #include "YOMCST.h"
 #include "indicesol.h"
+      REAL rlon(klon), rlat(klon), pctsrf(klon, nbsrf)
       REAL t(klon,klev), tsol(klon,nbsrf)
       CHARACTER*(*) text
@@ -26 +27 @@
          PRINT*, 'hgardfou garantit la temperature dans [100,370] K'
          firstcall = .FALSE.
+c
+         DO i = 1, klon
+          print*,'i=',i,'rlon=',rlon(i),'rlat=',rlat(i)
+         ENDDO
+c
       ENDIF
 c
@@ -47 +53 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,k,temperature =',jadrs(i),k,zt(jadrs(i))
+             PRINT *,'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
+     $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
+     $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
            ENDDO
          ENDIF
@@ -65 +73 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,k,temperature =',jadrs(i),k,zt(jadrs(i))
+             PRINT *,'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
+     $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
+     $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
            ENDDO
          ENDIF
@@ -88 +98 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,nsrf,temperature =',jadrs(i),nsrf,zt(jadrs(i))
+            PRINT *,'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
+     $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
+     $      ,pctsrf(jadrs(i),nsrf)
            ENDDO
          ENDIF
@@ -106 +118 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,nsrf,temperature =',jadrs(i),nsrf,zt(jadrs(i))
+            PRINT *,'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
+     $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
+     $      ,pctsrf(jadrs(i),nsrf)
            ENDDO
          ENDIF

LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/physiq.F

@@ -1983 +1983 @@
 cIM END
 c
-      CALL hgardfou(t_seri,ftsol,'debutphy')
+      CALL hgardfou(rlon,rlat,pctsrf,t_seri,ftsol,'debutphy')
 c
 cIM BEG