Changeset 1821 for LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

Timestamp:

Jul 30, 2013, 2:46:15 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Le passage de définition est maintenant effectué automatiquement lors du premier appel d'écriture à phys_output_write.
UG
.................................................
The definition run is now automatically triggered by the first writing call to phys_output_write.
UG

File:

• LMDZ5/trunk/libf/phylmd/phys_output_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -387 +387 @@
     ENDDO !  iff
 
-    ! ug On déclare les sorties avec un premier appel à phys_output_write:
-    !    on utilise itap=0 pour signaler à histwrite qu'il s'agit du passage de définition
-      CALL phys_output_write(0, pdtphys, paprs, pphis,               &
-     &                  pplay, lmax_th, aerosol_couple,                 &
-     &                  ok_ade, ok_aie, ivap, new_aod, ok_sync,         &
-     &                  ptconv, read_climoz, clevSTD, ptconvth,         &
-     &                  d_t, qx, d_qx, zmasse, flag_aerosol_strat)
-
-    DO iff=1,nfiles
-        IF (clef_files(iff)) THEN
-          CALL histend(nid_files(iff))
-
-          ndex2d = 0
-          ndex3d = 0
-
-        ENDIF ! clef_files
-    ENDDO !  iff
 
     ! Updated write frequencies due to phys_out_filetimesteps.