Changeset 1952


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
Files:
76 deleted
1 edited
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

  • LMDZ5/trunk/tools/install_1d_src.sh

    r1947 r1952  
    4343 ln -s ../dyn3d/conf_gcm.F .
    4444 ln -s ../dyn3d_common/pres2lev* .
    45  ln -s ../dyn3d/control_mod.F90 .
     45 ln -s ../dyn3d_common/control_mod.F90 .
    4646 ln -sf ../dyn3d_common/q_sat.F .
    47  ln -s ../dyn3d/disvert.F90 .
     47 ln -s ../dyn3d_common/disvert.F90 .
Note: See TracChangeset for help on using the changeset viewer.