Changeset 1356 for trunk/LMDZ.VENUS/libf/phyvenus/start2archive.F

Timestamp:

Oct 8, 2014, 9:26:28 AM (10 years ago)

Author:

slebonnois

Message:

SL: update to newstart/start2archive tools in Venus+Titan / additional diagnostics in radiative fluxes for Titan

File:

• trunk/LMDZ.VENUS/libf/phyvenus/start2archive.F (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/start2archive.F

@@ -19 +19 @@
       USE control_mod
       use cpdet_mod, only: tpot2t,ini_cpdet
+      use exner_hyb_m, only: exner_hyb
+      use exner_milieu_m, only: exner_milieu
 
       implicit none
@@ -150 +152 @@
       CALL pression(ip1jmp1, ap, bp, ps, p3d)
          if (disvert_type==1) then
-           CALL exner_hyb(  ip1jmp1, ps, p3d,alpha,beta,pks, pk, pkf )
+           CALL exner_hyb(  ip1jmp1, ps, p3d, pks, pk, pkf )
          else ! we assume that we are in the disvert_type==2 case
-           CALL exner_milieu( ip1jmp1, ps, p3d, beta, pks, pk, pkf )
+           CALL exner_milieu( ip1jmp1, ps, p3d, pks, pk, pkf )
          endif