Changeset 892 for trunk/LMDZ.VENUS/libf/phyvenus/phytrac.F

Timestamp:

Mar 5, 2013, 4:01:03 PM (12 years ago)

Author:

slebonnois

Message:

SL: Important commit ! Adaptation of Venus physics to parallel computation / template for arch on the LMD servers using ifort / documentation for 1D column physics and for parallel computations

File:

• trunk/LMDZ.VENUS/libf/phyvenus/phytrac.F (modified) (1 diff)

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

@@ -86 +86 @@
 cAA
 
-      CHARACTER*2 itn
-C maf ioipsl
-      CHARACTER*2 str2
-      INTEGER nhori, nvert
-      REAL zsto, zout, zjulian
-      INTEGER nid_tra
-      SAVE nid_tra
-      INTEGER nid_tra2,nid_tra3
-      SAVE nid_tra2,nid_tra3
-      INTEGER ndex(1)
-      INTEGER ndex2d(iim*(jjm+1)),ndex3d(iim*(jjm+1)*klev)
-      REAL zx_tmp_2d(iim,jjm+1), zx_tmp_3d(iim,jjm+1,klev)
-      REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
-c
-      integer itau_w   ! pas de temps ecriture = nstep + itau_phy
-c
-
-C
-C Variables liees a l'ecriture de la bande histoire : phytrac.nc
-c
-c      INTEGER ecrit_tra
-c      SAVE ecrit_tra   
-      logical ok_sync
-      parameter (ok_sync = .true.)
-C
 C les traceurs
 C