Changeset 157 for trunk/SOURCES/main3D-0.4-40km.f90

Timestamp:

11/10/17 17:04:49 (7 years ago)

Author:

dumas

Message:

determin_marais is now called only when isynchro=1 | sortie_hz_multi and hz_output are suppressed | step_time_loop_avec_iterbeta updated as step_time_loop

File:

• trunk/SOURCES/main3D-0.4-40km.f90 (modified) (3 diffs)

trunk/SOURCES/main3D-0.4-40km.f90

@@ -175 +175 @@
   marine=.true.
   !     ----------------------------------fin des modifs run les plus usuelles
-  ! DIRNAMEOUT='../RESULTATS/'
+  !DIRNAMEOUT='../RESULTATS/'
   DIRNAMEOUT='./'
 
@@ -188 +188 @@
   DTCPT=dtout
 
-  dtsortie=minval(dtsortie_hz(:))
 
   !     ************ OPEN FILES.RITZ ****************
@@ -362 +361 @@
   enddo
   timemax=time
-
-  ! sortie des champs initiaux
-
-  call testsort_time(tbegin)
-  call sortie_hz_multi   ! pour les variables declarees dans 3D
-!  call hz_output(tbegin)
-
-!  call limit_file(1,real(time),dt,tend,dtsortie,dtcpt,testdiag,dtt,runname)
-
   isynchro=1
   ndebug=0