Changeset 2354 for LMDZ5


Ignore:
Timestamp:
Aug 28, 2015, 11:38:53 AM (9 years ago)
Author:
Ehouarn Millour
Message:

Corrections for the 1D model to fix initializations broken with previous revision.
EM+MPL

Location:
LMDZ5/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq_mod.F90

    r2351 r2354  
    109109
    110110  ! Initialize Physics distibution and parameters and interface with dynamics
    111   CALL init_physics_distribution(regular_lonlat,4, &
     111  IF (klon_glo>1) THEN ! general 3D case
     112    CALL init_physics_distribution(regular_lonlat,4, &
    112113                                 nbp,ii,jj+1,nlayer,communicator)
     114  ELSE ! For 1D model
     115    CALL init_physics_distribution(regular_lonlat,4, &
     116                                 1,1,1,nlayer,communicator) 
     117  ENDIF
    113118  CALL init_interface_dyn_phys
    114119 
     
    254259  CALL init_time(annee_ref,day_ref,day_ini,start_time,nday,ptimestep)
    255260
    256   ! Initialize dimphy module
    257   CALL Init_dimphy(klon_omp,nlayer)
     261  ! Initialize dimphy module (unless in 1D where it has already been done)
     262  IF (klon_glo>1) CALL Init_dimphy(klon_omp,nlayer)
    258263
    259264  ! Copy over "offline" settings
  • LMDZ5/trunk/libf/phylmd/dyn1d/lmdz1d.F90

    r2351 r2354  
    488488!---------------------------------------------------------------------
    489489!      call init_phys_lmdz(1,1,llm,1,(/1/)) ! job now done via iniphysiq
     490!     but we still need to initialize dimphy module (klon,klev,etc.)  here.
     491      call init_dimphy(1,llm)
    490492      call suphel
    491493      call infotrac_init
Note: See TracChangeset for help on using the changeset viewer.