Changeset 1145 for LMDZ4/branches/LMDZ4-dev

Timestamp:

Apr 8, 2009, 2:19:49 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Deux modifications qui restaient de la branche LMDZ4_V3_patches
LF

Location:

LMDZ4/branches/LMDZ4-dev/libf/phylmd

Files:

• hgardfou.F (modified) (5 diffs)
• phys_output_mod.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/hgardfou.F

@@ -1 @@
-!
-! $Header$
 !
       SUBROUTINE hgardfou (t,tsol,text)
@@ -53 +51 @@
            ok = .FALSE.
            DO i = 1, jbad
-            PRINT *,'i,k,temperature rlon rlat=',jadrs(i),k,zt(jadrs(i))
-     $      ,rlon(jadrs(i)),rlat(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
@@ -72 +71 @@
            ok = .FALSE.
            DO i = 1, jbad
-            PRINT *,'i,k,temperature rlon rlat=',jadrs(i),k,zt(jadrs(i))
-     $      ,rlon(jadrs(i)),rlat(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
@@ -96 +96 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,nsrf,temperature =',jadrs(i),nsrf,zt(jadrs(i)),
-     $       rlon(jadrs(i)),rlat(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
@@ -115 +116 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,nsrf,temperature =',jadrs(i),nsrf,zt(jadrs(i)),
-     $       rlon(jadrs(i)),rlat(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-dev/libf/phylmd/phys_output_mod.F90

@@ -463 +463 @@
   logical                               :: ok_veget
   integer                               :: iflag_pbl
-  CHARACTER(len=3)                      :: bb2
+  CHARACTER(len=4)                      :: bb2
   CHARACTER(len=2)                      :: bb3
   character(len=6)                      :: type_ocean