Changeset 1076 for trunk/LMDZ.COMMON


Ignore:
Timestamp:
Oct 18, 2013, 5:41:47 PM (11 years ago)
Author:
slebonnois
Message:

SL: still another correction to version 1056...

Location:
trunk/LMDZ.COMMON
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3d/calfis.F

    r1071 r1076  
    195195! to allow for 2D computation of microphys and chemistry
    196196      LOGICAL,save :: flag_moyzon
    197       REAL,allocatable :: tmpvar(:,:)
    198       REAL,allocatable :: tmpvarp1(:,:)
    199       REAL,allocatable :: tmpvarbar(:)
    200       REAL,allocatable :: tmpvarbarp1(:)
     197      REAL,allocatable,save :: tmpvar(:,:)
     198      REAL,allocatable,save :: tmpvarp1(:,:)
     199      REAL,allocatable,save :: tmpvarbar(:)
     200      REAL,allocatable,save :: tmpvarbarp1(:)
    201201
    202202c-----------------------------------------------------------------------

  • trunk/LMDZ.COMMON/libf/dyn3dpar/calfis_p.F

    r1071 r1076  
    256256! to allow for 2D computation of microphys and chemistry
    257257      LOGICAL,save :: flag_moyzon
    258       REAL,allocatable :: tmpvar(:,:)
    259       REAL,allocatable :: tmpvarp1(:,:)
    260       REAL,allocatable :: tmpvarbar(:)
    261       REAL,allocatable :: tmpvarbarp1(:)
     258      REAL,allocatable,save :: tmpvar(:,:)
     259      REAL,allocatable,save :: tmpvarp1(:,:)
     260      REAL,allocatable,save :: tmpvarbar(:)
     261      REAL,allocatable,save :: tmpvarbarp1(:)
    262262
    263263c-----------------------------------------------------------------------
    … …  
    284284        unskap   = 1./ kappa
    285285
     286c$OMP MASTER
    286287        flag_moyzon = .false.
    287288        if(moyzon_ch.or.moyzon_mu) then
    … …  
    293294        endif
    294295
    295 c$OMP MASTER
    296296      ALLOCATE(zpsrf(klon))
    297297      ALLOCATE(zplev(klon,llm+1),zplay(klon,llm))

  • trunk/LMDZ.COMMON/makelmdz

    r1049 r1076  
    323323   archfileline=$( grep -i '^%C_OPTIM' arch.fcm )
    324324   coptim=$( echo ${archfileline##%C_OPTIM} )
    325    OPTIMC="$OPTIMC  ${coptim}"
     325   OPTIMC="${coptim}"
    326326   INCLUDEC='-I$(LIBF)/grid -I.'
    327327fi
    … …  
    732732OPTIMTRU90="${COMPIL_FFLAGS} ${PARA_FFLAGS}" \
    733733OPTIM="${COMPIL_FFLAGS} ${PARA_FFLAGS}" \
    734 OPTIMC="$optimc" \
     734OPTIMC="$OPTIMC" \
    735735INCLUDE="$INCLUDE" \
    736736INCLUDEC="$includec" \
    … …  
    763763OPTIMTRU90="${COMPIL_FFLAGS} ${PARA_FFLAGS}" \
    764764OPTIM="${COMPIL_FFLAGS} ${PARA_FFLAGS}" \
    765 OPTIMC="$optimc" \
     765OPTIMC="$OPTIMC" \
    766766INCLUDE="$INCLUDE" \
    767767INCLUDEC="$includec" \
Note: See TracChangeset for help on using the changeset viewer.