Ignore:
Timestamp:
Jun 11, 2020, 7:40:22 PM (5 years ago)
Author:
jvatant
Message:

Titan GCM : Major maintenance catching up commits from the generic including :

  • r2356 and 2354 removing obsolete old dynamical core
  • various minor addition to physics and gestion of phys_state_var_mode, especially in dyn1d
  • adding MESOSCALE CPP keys around chemistry and microphysics (disabled in mesoscale for now)
Location:
trunk/LMDZ.TITAN/libf/phytitan/dyn1d
Files:
1 added
1 deleted
12 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/abort_gcm.F

    r1403 r2366  
    1 link ../../dyn3d/abort_gcm.F
     1link ../../../../LMDZ.COMMON/libf/dyn3d/abort_gcm.F

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/comconst_mod.F90

    r1422 r2366  
    1 link ../../dyn3d/comconst_mod.F90
     1link ../../../../LMDZ.COMMON/libf/dyn3d_common/comconst_mod.F90

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/comgeom.h

    r1403 r2366  
    1 link ../../dyn3d/comgeom.h
     1link ../../../../LMDZ.COMMON/libf/dyn3d_common/comgeom.h

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/comvert_mod.F90

    r1422 r2366  
    1 link ../../dyn3d/comvert_mod.F90
     1link ../../../../LMDZ.COMMON/libf/dyn3d_common/comvert_mod.F90

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/control_mod.F90

    r1403 r2366  
    1 link ../../dyn3d/control_mod.F90
     1link ../../../../LMDZ.COMMON/libf/dyn3d_common/control_mod.F90

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/ener_mod.F90

    r1422 r2366  
    1 link ../../dyn3d/ener_mod.F90
     1link ../../../../LMDZ.COMMON/libf/dyn3d_common/ener_mod.F90

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/infotrac.F90

    r1403 r2366  
    1 link ../../dyn3d/infotrac.F90
     1link ../../../../LMDZ.COMMON/libf/dyn3d_common/infotrac.F90

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/logic_mod.F90

    r1422 r2366  
    1 link ../../dyn3d/logic_mod.F90
     1link ../../../../LMDZ.COMMON/libf/dyn3d/logic_mod.F90

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/mod_const_mpi.F90

    r1403 r2366  
    1 link ../../dyn3d/mod_const_mpi.F90
     1link ../../../../LMDZ.COMMON/libf/dyn3d/mod_const_mpi.F90

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/paramet.h

    r1403 r2366  
    1 link ../../dyn3d/paramet.h
     1link ../../../../LMDZ.COMMON/libf/dyn3d_common/paramet.h

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F

    r2116 r2366  
    2828     &                       presnivs,pseudoalt,scaleheight
    2929      USE vertical_layers_mod, ONLY: init_vertical_layers
    30       USE logic_mod, ONLY: hybrid,autozlevs
     30      USE logic_mod, ONLY: hybrid
    3131      use regular_lonlat_mod, only: init_regular_lonlat
    3232      use planete_mod, only: ini_planete_mod
    … …  
    3535      use mod_interface_dyn_phys, only: init_interface_dyn_phys
    3636      use inifis_mod, only: inifis
     37      use phys_state_var_mod, only: phys_state_var_init
    3738      use physiq_mod, only: physiq
    3839      implicit none
    … …  
    118119
    119120!     added by RW for autozlevs computation
     121      logical autozlevs
    120122      real nu, xx, pMIN, zlev, Htop
    121123      real logplevs(llm)
    … …  
    132134c INITIALISATION
    133135c=======================================================================
    134 ! initialize "serial/parallel" related stuff
    135 !      CALL init_phys_lmdz(iim,jjm+1,llm,1,(/(jjm-1)*iim+2/))
    136 !      CALL init_phys_lmdz(1,1,llm,1,(/1/))
    137 !      call initcomgeomphy
    138 
    139       !! those are defined in surfdat_h.F90
    140       IF (.not. ALLOCATED(albedodat)) ALLOCATE(albedodat(1))
    141       IF (.not. ALLOCATED(phisfi)) ALLOCATE(phisfi(1))
    142       IF (.not. ALLOCATED(zmea)) ALLOCATE(zmea(1))
    143       IF (.not. ALLOCATED(zstd)) ALLOCATE(zstd(1))
    144       IF (.not. ALLOCATED(zsig)) ALLOCATE(zsig(1))
    145       IF (.not. ALLOCATED(zgam)) ALLOCATE(zgam(1))
    146       IF (.not. ALLOCATED(zthe)) ALLOCATE(zthe(1))
    147       !! those are defined in comdiurn_h.F90
    148       IF (.not.ALLOCATED(sinlat)) ALLOCATE(sinlat(1))
    149       IF (.not.ALLOCATED(coslat)) ALLOCATE(coslat(1))
    150       IF (.not.ALLOCATED(sinlon)) ALLOCATE(sinlon(1))
    151       IF (.not.ALLOCATED(coslon)) ALLOCATE(coslon(1))
    152 
     136
     137      ! read nq from traceur.def
     138      open(90,file='traceur.def',status='old',form='formatted',
     139     &       iostat=ierr)
     140      if (ierr.eq.0) then
     141        read(90,*,iostat=ierr) nq
     142      else
     143        nq=0
     144      endif
     145      close(90)
     146     
     147      ! Initialize dimphy module
     148      call init_dimphy(1,llm)
     149      ! now initialize arrays using phys_state_var_init
     150      call phys_state_var_init(nq)
     151     
    153152      saveprofile=.false.
    154153      saveprofile=.true.
    … …  
    480479!      call init_vertical_layers(nlayer,preff,scaleheight,
    481480!     &                      ap,bp,aps,bps,presnivs,pseudoalt)
    482       call init_dimphy(1,nlayer) ! Initialize dimphy module
     481!      call init_dimphy(1,nlayer) ! Initialize dimphy module
    483482      call ini_planete_mod(nlayer,preff,ap,bp)
    484483
    … …  
    643642      endif
    644643
    645       call disvert
     644      call disvert_noterre
    646645      ! now that disvert has been called, initialize module vertical_layers_mod
    647646      call init_vertical_layers(nlayer,preff,scaleheight,
    … …  
    669668         ENDDO
    670669         
     670
     671
    671672         DO ilayer=1,nlayer
    672673!     zlay(ilayer)=-300.E+0 *r*log(play(ilayer)/plev(1))

  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/serre_mod.F90

    r1422 r2366  
    1 link ../../dyn3d/serre_mod.F90
     1link ../../../../LMDZ.COMMON/libf/dyn3d_common/serre_mod.F90
Note: See TracChangeset for help on using the changeset viewer.