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/libf
Files:
2 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))
Note: See TracChangeset for help on using the changeset viewer.