Changeset 1175 for LMDZ4/branches/LMDZ4-dev

Timestamp:

Jun 9, 2009, 9:02:25 AM (15 years ago)

Author:

Ehouarn Millour

Message:

Correction de petits bugs dans dump2d.F et ugeostr.F, versions seq. et para.
EM

Location:

LMDZ4/branches/LMDZ4-dev/libf

Files:

• dyn3d/dump2d.F (modified) (3 diffs)
• dyn3d/ugeostr.F (modified) (3 diffs)
• dyn3dpar/dump2d.F (modified) (3 diffs)
• dyn3dpar/ugeostr.F (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/dump2d.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       SUBROUTINE dump2d(im,jm,z,nom_z)
@@ -6 +6 @@
       INTEGER im,jm
       REAL z(im,jm)
-      CHARACTER*80 nom_z
+      CHARACTER (len=*) :: nom_z
 
       INTEGER i,j,imin,illm,jmin,jllm
       REAL zmin,zllm
 
-      PRINT*,nom_z
+      WRITE(*,*) "dump2d: ",trim(nom_z)
 
       zmin=z(1,1)
@@ -39 +39 @@
 
       IF(zllm.GT.zmin) THEN
-      DO j=1,jm
-      WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
-      ENDDO
+       DO j=1,jm
+        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
+       ENDDO
       ENDIF
       RETURN

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/ugeostr.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       subroutine ugeostr(phi,ucov)
@@ -20 +20 @@
 
       real zlat
+
+      um(:,:)=0 ! initialize um()
 
       DO j=1,jjm
@@ -42 +44 @@
          ENDDO
       ENDDO
-      call dump2d(jjp1,llm,um,'Vent-u geostrophique')
+      call dump2d(jjm,llm,um,'Vent-u geostrophique')
 
 c

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dump2d.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       SUBROUTINE dump2d(im,jm,z,nom_z)
@@ -6 +6 @@
       INTEGER im,jm
       REAL z(im,jm)
-      CHARACTER*80 nom_z
+      CHARACTER (len=*) :: nom_z
 
       INTEGER i,j,imin,illm,jmin,jllm
       REAL zmin,zllm
 
-      PRINT*,nom_z
+      WRITE(*,*) "dump2d: ",trim(nom_z)
 
       zmin=z(1,1)
@@ -39 +39 @@
 
       IF(zllm.GT.zmin) THEN
-      DO j=1,jm
-      WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
-      ENDDO
+       DO j=1,jm
+        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
+       ENDDO
       ENDIF
       RETURN

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/ugeostr.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
       subroutine ugeostr(phi,ucov)
@@ -20 +20 @@
 
       real zlat
+
+      um(:,:)=0 ! initialize um()
 
       DO j=1,jjm
@@ -42 +44 @@
          ENDDO
       ENDDO
-      call dump2d(jjp1,llm,um,'Vent-u geostrophique')
+      call dump2d(jjm,llm,um,'Vent-u geostrophique')
 
 c