Changeset 1356 for trunk/LMDZ.TITAN/libf/phytitan/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.TITAN/libf/phytitan/start2archive.F (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/start2archive.F

@@ -18 +18 @@
       USE infotrac
       USE control_mod
-      use cpdet_mod, only: tpot2t
+      use cpdet_mod, only: tpot2t,ini_cpdet
+      use exner_hyb_m, only: exner_hyb
+      use exner_milieu_m, only: exner_milieu
 
       implicit none
@@ -140 +142 @@
 c-----------------------------------------------------------------------
 
+      CALL conf_gcm( 99, .TRUE. )
       call iniconst
       call inigeom
       call inifilr
+      call ini_cpdet
+
       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