Changeset 1175 for LMDZ4


Ignore:
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:
4 edited

Legend:

Unmodified
Added
Removed

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

    r524 r1175  
    11!
    2 ! $Header$
     2! $Id$
    33!
    44      SUBROUTINE dump2d(im,jm,z,nom_z)
    … …  
    66      INTEGER im,jm
    77      REAL z(im,jm)
    8       CHARACTER*80 nom_z
     8      CHARACTER (len=*) :: nom_z
    99
    1010      INTEGER i,j,imin,illm,jmin,jllm
    1111      REAL zmin,zllm
    1212
    13       PRINT*,nom_z
     13      WRITE(*,*) "dump2d: ",trim(nom_z)
    1414
    1515      zmin=z(1,1)
    … …  
    3939
    4040      IF(zllm.GT.zmin) THEN
    41       DO j=1,jm
    42       WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
    43       ENDDO
     41       DO j=1,jm
     42        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
     43       ENDDO
    4444      ENDIF
    4545      RETURN

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

    r524 r1175  
    11!
    2 ! $Header$
     2! $Id$
    33!
    44      subroutine ugeostr(phi,ucov)
    … …  
    2020
    2121      real zlat
     22
     23      um(:,:)=0 ! initialize um()
    2224
    2325      DO j=1,jjm
    … …  
    4244         ENDDO
    4345      ENDDO
    44       call dump2d(jjp1,llm,um,'Vent-u geostrophique')
     46      call dump2d(jjm,llm,um,'Vent-u geostrophique')
    4547
    4648c

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

    r774 r1175  
    11!
    2 ! $Header$
     2! $Id$
    33!
    44      SUBROUTINE dump2d(im,jm,z,nom_z)
    … …  
    66      INTEGER im,jm
    77      REAL z(im,jm)
    8       CHARACTER*80 nom_z
     8      CHARACTER (len=*) :: nom_z
    99
    1010      INTEGER i,j,imin,illm,jmin,jllm
    1111      REAL zmin,zllm
    1212
    13       PRINT*,nom_z
     13      WRITE(*,*) "dump2d: ",trim(nom_z)
    1414
    1515      zmin=z(1,1)
    … …  
    3939
    4040      IF(zllm.GT.zmin) THEN
    41       DO j=1,jm
    42       WRITE(*,'(72i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
    43       ENDDO
     41       DO j=1,jm
     42        WRITE(*,'(600i1)') (NINT(10.*(z(i,j)-zmin)/(zllm-zmin)),i=1,im)
     43       ENDDO
    4444      ENDIF
    4545      RETURN

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

    r774 r1175  
    11!
    2 ! $Header$
     2! $Id$
    33!
    44      subroutine ugeostr(phi,ucov)
    … …  
    2020
    2121      real zlat
     22
     23      um(:,:)=0 ! initialize um()
    2224
    2325      DO j=1,jjm
    … …  
    4244         ENDDO
    4345      ENDDO
    44       call dump2d(jjp1,llm,um,'Vent-u geostrophique')
     46      call dump2d(jjm,llm,um,'Vent-u geostrophique')
    4547
    4648c
Note: See TracChangeset for help on using the changeset viewer.