Ignore:
Timestamp:
Apr 22, 2016, 9:02:11 AM (9 years ago)
Author:
emillour
Message:

All models: Further adaptations to keep up with changes in LMDZ5 concerning
physics/dynamics separation:

  • dyn3d:
  • adapted gcm.F so that all physics initializations are now done in iniphysiq.
  • dyn3dpar:
  • adapted gcm.F so that all physics initializations are now done in iniphysiq.
  • updated calfis_p.F to follow up with changes.
  • copied over updated "bands.F90" from LMDZ5.
  • dynphy_lonlat:
  • calfis_p.F90, mod_interface_dyn_phys.F90, follow up of changes in phy_common/mod_* routines
  • phy_common:
  • added "geometry_mod.F90" to store information about the grid (replaces phy*/comgeomphy.F90) and give variables friendlier names: rlond => longitude , rlatd => latitude, airephy => cell_area, cuphy => dx , cvphy => dy
  • added "physics_distribution_mod.F90"
  • updated "mod_grid_phy_lmdz.F90", "mod_phys_lmdz_mpi_data.F90", "mod_phys_lmdz_para.F90", "mod_phys_lmdz_mpi_transfert.F90", "mod_grid_phy_lmdz.F90", "mod_phys_lmdz_omp_data.F90", "mod_phys_lmdz_omp_transfert.F90", "write_field_phy.F90" and "ioipsl_getin_p_mod.F90" to LMDZ5 versions.
  • phy[venus/titan/mars/std]:
  • removed "init_phys_lmdz.F90", "comgeomphy.F90"; adapted routines to use geometry_mod (longitude, latitude, cell_area, etc.)

EM

Location:
trunk/LMDZ.GENERIC/libf/phystd/dyn1d
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

    r1542 r1543  
    33! to use  'getin'
    44      use ioipsl_getincom, only: getin
     5      use dimphy, only : init_dimphy
     6      use mod_grid_phy_lmdz, only : regular_lonlat
    57      use infotrac, only: nqtot, tname
    68      use surfdat_h, only: albedodat, phisfi, dryness, watercaptag,
     
    911     &                     dtemisice
    1012      use comdiurn_h, only: sinlat, coslat, sinlon, coslon
    11 !      use comsaison_h
    1213      use comsoil_h, only: nsoilmx, layer, mlayer, inertiedat, volcapa
    1314      use phyredem, only: physdem0,physdem1
    14       use comgeomphy, only: initcomgeomphy, cell_area
     15      use geometry_mod, only: init_geometry
    1516      use slab_ice_h, only: noceanmx
    1617      use planete_mod, only: apoastr,periastr,year_day,peri_day,
     
    2728      use regular_lonlat_mod, only: init_regular_lonlat
    2829      use planete_mod, only: ini_planete_mod
     30      use physics_distribution_mod, only: init_physics_distribution
     31      use regular_lonlat_mod, only: init_regular_lonlat
     32      use mod_interface_dyn_phys, only: init_interface_dyn_phys
    2933      use inifis_mod, only: inifis
    3034      implicit none
     
    133137      character*20,allocatable :: nametrac(:)   ! name of the tracer (no need for adv trac common)
    134138
    135       real :: latitude(1), longitude(1)
     139      real :: latitude(1), longitude(1), cell_area(1)
    136140
    137141c=======================================================================
     
    140144! initialize "serial/parallel" related stuff
    141145!      CALL init_phys_lmdz(iim,jjm+1,llm,1,(/(jjm-1)*iim+2/))
    142       CALL init_phys_lmdz(1,1,llm,1,(/1/))
    143       call initcomgeomphy
     146!      CALL init_phys_lmdz(1,1,llm,1,(/1/))
     147!      call initcomgeomphy
    144148
    145149      !! those are defined in surfdat_h.F90
     
    490494
    491495      ! initializations, as with iniphysiq.F90 for the 3D GCM
     496      call init_physics_distribution(regular_lonlat,4,
     497     &                               1,1,1,nlayer,1)
     498      call init_interface_dyn_phys
    492499      CALL init_regular_lonlat(1,1,longitude,latitude,
    493500     &                   (/0.,0./),(/0.,0./))
    494      
     501      call init_geometry(1,longitude,latitude,
     502     &                   (/0.,0.,0.,0./),(/0.,0.,0.,0./),
     503     &                   cell_area)
     504      call init_dimphy(1,nlayer) ! Initialize dimphy module
    495505      call ini_planete_mod(nlayer,preff,ap,bp)
    496506
Note: See TracChangeset for help on using the changeset viewer.