Changeset 3442 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jan 25, 2019, 11:12:29 AM (6 years ago)
Author:
Laurent Fairhead
Message:

Following merging of DYNAMICO/LMDZ branches, modifications needed for the 1D LMDZ model
Added a 1D special version of dimphy which is called before the real dimphy in lmdz1d
MPL

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/dimphy.F90

    • Property svn:keywords changed from Author Date Id Revision to Id
    r3435 r3442  
    1 MODULE dimphy
     1!
     2! $Id$
     3!
     4  MODULE dimphy
    25 
    36  INTEGER,SAVE :: klon
     
    3740  END SUBROUTINE Init_dimphy
    3841
     42  SUBROUTINE Init_dimphy1D(klon0,klev0)
     43! 1D special version of dimphy without ALLOCATE(zmasq)
     44! which will be allocated in iniphysiq
     45  IMPLICIT NONE
     46 
     47    INTEGER, INTENT(in) :: klon0
     48    INTEGER, INTENT(in) :: klev0
     49   
     50    klon=klon0
     51    kdlon=klon
     52    kidia=1
     53    kfdia=klon
     54    klev=klev0
     55    klevp1=klev+1
     56    klevm1=klev-1
     57    kflev=klev
     58   
     59  END SUBROUTINE Init_dimphy1D
     60
    3961 
    4062END MODULE dimphy
  • LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90

    • Property svn:keywords set to Id
    r3316 r3442  
     1!
     2! $Id$
     3!
    14!#ifdef CPP_1D
    25!#include "../dyn3d/mod_const_mpi.F90"
     
    581584!      call init_phys_lmdz(1,1,llm,1,(/1/)) ! job now done via iniphysiq
    582585!     but we still need to initialize dimphy module (klon,klev,etc.)  here.
    583       call init_dimphy(1,llm)
     586      call init_dimphy1D(1,llm)
    584587      call suphel
    585588      call infotrac_init
Note: See TracChangeset for help on using the changeset viewer.