Changeset 1669 for LMDZ5/branches/testing/libf/dyn3d/calfis.F

Timestamp:

Oct 16, 2012, 2:41:50 PM (12 years ago)

Author:

Laurent Fairhead

Message:

Version testing basée sur la r1668

http://lmdz.lmd.jussieu.fr/utilisateurs/distribution-du-modele/versions-intermediaires

---

Testing release based on r1668

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3d/calfis.F (modified) (5 diffs)

LMDZ5/branches/testing/libf/dyn3d/calfis.F

@@ -179 +179 @@
 !      REAL rdayvrai
       REAL, intent(in):: jD_cur, jH_cur
+
+      LOGICAL tracerdyn
+
 c
 c-----------------------------------------------------------------------
@@ -459 +462 @@
       zdqfic(:,:,:)=0.
 
-      if (planet_type=="earth") then
 #ifdef CPP_PHYS
 
@@ -467 +469 @@
          debut_split=debut.and.isplit==1
          lafin_split=lafin.and.isplit==nsplit_phys
+
+      if (planet_type=="earth") then
 
          CALL physiq (ngridmx,
@@ -495 +499 @@
      .             PVteta)
 
+      else if ( planet_type=="generic" ) then
+
+         CALL physiq (ngridmx,     !! ngrid
+     .             llm,            !! nlayer
+     .             nqtot,          !! nq
+     .             tname,          !! tracer names from dynamical core (given in infotrac)
+     .             debut_split,    !! firstcall 
+     .             lafin_split,    !! lastcall
+     .             float(day_ini), !! pday <-- day_ini (dans temps.h)
+     .             jH_cur_split,   !! ptime "fraction of day"
+     .             zdt_split,      !! ptimestep
+     .             zplev,          !! pplev
+     .             zplay,          !! pplay
+     .             zphi,           !! pphi
+     .             zufi,           !! pu
+     .             zvfi,           !! pv
+     .             ztfi,           !! pt
+     .             zqfi,           !! pq
+     .             flxwfi,         !! pw !! or 0. anyway this is for diagnostic. not used in physiq.
+     .             zdufi,          !! pdu
+     .             zdvfi,          !! pdv
+     .             zdtfi,          !! pdt
+     .             zdqfi,          !! pdq
+     .             zdpsrf,         !! pdpsrf
+     .             tracerdyn)      !! tracerdyn <-- utilite ???
+
+      endif ! of if (planet_type=="earth")
+
          zufi(:,:)=zufi(:,:)+zdufi(:,:)*zdt_split
          zvfi(:,:)=zvfi(:,:)+zdvfi(:,:)*zdt_split
@@ -509 +541 @@
 #endif
 ! of #ifdef CPP_PHYS
-      endif ! of if (planet_type=="earth")
 
       zdufi(:,:)=zdufic(:,:)/nsplit_phys