Ignore:
Timestamp:
May 12, 2014, 1:14:28 PM (11 years ago)
Author:
aslmd
Message:

LMDZ.MARS. corrected a bug in iniphysiq which made the LMDZ.COMMON.MARS model to break in parallel -- following the splitting of inifis in several subroutines.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/iniphysiq.F90

    r1246 r1257  
    7272call phys_state_var_init(klon_omp,nlayer,nqtot, &
    7373                         punjours,ptimestep,prad,pg,pr,pcpp)
    74 call ini_fillgeom(ngrid,rlatd,rlond,airephy)
    75 call conf_phys(ngrid,nlayer,nqtot)
     74call ini_fillgeom(klon_omp,rlatd,rlond,airephy)
     75call conf_phys(klon_omp,nlayer,nqtot)
    7676
    7777!$OMP END PARALLEL
Note: See TracChangeset for help on using the changeset viewer.