Changeset 1548


Ignore:
Timestamp:
May 4, 2016, 10:22:03 AM (9 years ago)
Author:
emillour
Message:

Titan 1D model:

  • fixed some broken links and corrected rcm1d to be compatible with latest update of iniphysiq_mod.

EM

Location:
trunk/LMDZ.TITAN/libf/phytitan/dyn1d
Files:
3 added
1 deleted
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.TITAN/libf/phytitan/dyn1d/rcm1d.F

    r1525 r1548  
    33      USE infotrac
    44      use control_mod, only: planet_type, day_step
    5       use comgeomphy
     5!      use comgeomphy
    66      USE phys_state_var_mod
    77      USE comconst_mod, ONLY: cpp,t0_venus,nu_venus
     
    1212     .                       disvert_type,pressure_exner
    1313      USE iniphysiq_mod, ONLY: iniphysiq
     14      USE mod_const_mpi, ONLY: comm_lmdz
    1415      IMPLICIT NONE
    1516
     
    191192c   ---------------------------------
    192193
    193       CALL init_phys_lmdz(iim,jjm,llm,1,(/1/))
     194!      CALL init_phys_lmdz(iim,jjm,llm,1,(/1/))
    194195
    195196c   la surface de chaque maille est inutile en 1D --->
     
    202203c e.g. for cell boundaries, which are meaningless in 1D; so pad these
    203204c with '0.' when necessary
    204       CALL iniphysiq(1,1,llm,daysec,day0,dtphys,
     205      CALL iniphysiq(1,1,llm,
     206     &            1,comm_lmdz,
     207     &            daysec,day0,dtphys,
    205208     &            (/lati(1),0./),(/0./),
    206209     &            (/0.,0./),(/long(1),0./),
Note: See TracChangeset for help on using the changeset viewer.