Ignore:
Timestamp:
Jan 28, 2014, 2:05:47 PM (10 years ago)
Author:
lguez
Message:

Other files with unneeded differences in dyn3d, dyn3dpar and dyn3dmem.

Location:
LMDZ5/trunk/libf/dyn3d_common
Files:
38 moved

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3d_common/description.h

    r1951 r1952  
    22! $Header$
    33!
    4       character *120 descript
     4      character (len=120) :: descript
    55      common /titre/descript
  • LMDZ5/trunk/libf/dyn3d_common/extrapol.F

    r1951 r1952  
    158158               jlat = jy(k)
    159159               pwork(i,j) = pwork(i,j)
    160      $                      + pfild(ilon,jlat) * zmask(k)/REAL(inbor)
     160     $                      + pfild(ilon,jlat) * zmask(k)/ REAL(inbor)
    161161            ENDDO
    162162         ENDIF
  • LMDZ5/trunk/libf/dyn3d_common/limx.F

    r1951 r1952  
    4848      REAL      SSUM,CVMGP,CVMGT
    4949      integer ismax,ismin
    50       EXTERNAL  SSUM, convflu,ismin,ismax
    51       EXTERNAL filtreg
     50      EXTERNAL  SSUM, ismin,ismax
    5251
    5352      data first/.true./
  • LMDZ5/trunk/libf/dyn3d_common/limz.F

    r1951 r1952  
    4848      REAL      SSUM,CVMGP,CVMGT
    4949      integer ismax,ismin
    50       EXTERNAL  SSUM, convflu,ismin,ismax
    51       EXTERNAL filtreg
     50      EXTERNAL  SSUM, ismin,ismax
    5251
    5352      data first/.true./
  • LMDZ5/trunk/libf/dyn3d_common/pentes_ini.F

    r1951 r1952  
    5656      REAL      SSUM
    5757      integer ismax,ismin,lati,latf
    58       EXTERNAL  SSUM, convflu,ismin,ismax
     58      EXTERNAL  SSUM, ismin,ismax
    5959      logical first
    6060      save first
  • LMDZ5/trunk/libf/dyn3d_common/prather.F

    r1951 r1952  
    6060      REAL      SSUM
    6161      integer ismax,ismin
    62       EXTERNAL  SSUM, convflu,ismin,ismax
     62      EXTERNAL  SSUM, ismin,ismax
    6363      logical first
    6464      save first
  • LMDZ5/trunk/libf/dyn3d_common/test_period.F

    r1951 r1952  
    99c                           teta, q , p et phis                 ..........
    1010c
    11       USE infotrac
     11      USE infotrac, ONLY : nqtot
     12c
    1213c     IMPLICIT NONE
    1314c
Note: See TracChangeset for help on using the changeset viewer.