Changeset 1548 for trunk/LMDZ.TITAN/libf

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:

• gr_dyn_fi.F (added)
• iniphysiq_mod.F90 (added)
• iniprint.h (deleted)
• mod_interface_dyn_phys.F90 (added)
• rcm1d.F (modified) (4 diffs)

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

@@ -3 +3 @@
       USE infotrac
       use control_mod, only: planet_type, day_step
-      use comgeomphy
+!      use comgeomphy
       USE phys_state_var_mod
       USE comconst_mod, ONLY: cpp,t0_venus,nu_venus
@@ -12 +12 @@
      .                       disvert_type,pressure_exner
       USE iniphysiq_mod, ONLY: iniphysiq
+      USE mod_const_mpi, ONLY: comm_lmdz
       IMPLICIT NONE
 
@@ -191 +192 @@
 c   ---------------------------------
 
-      CALL init_phys_lmdz(iim,jjm,llm,1,(/1/))
+!      CALL init_phys_lmdz(iim,jjm,llm,1,(/1/))
 
 c   la surface de chaque maille est inutile en 1D --->
@@ -202 +203 @@
 c e.g. for cell boundaries, which are meaningless in 1D; so pad these 
 c with '0.' when necessary
-      CALL iniphysiq(1,1,llm,daysec,day0,dtphys,
+      CALL iniphysiq(1,1,llm,
+     &            1,comm_lmdz,
+     &            daysec,day0,dtphys,
      &            (/lati(1),0./),(/0./),
      &            (/0.,0./),(/long(1),0./),