Ignore:
Timestamp:
Jul 19, 2013, 4:32:37 PM (11 years ago)
Author:
Ehouarn Millour
Message:

Unification de la définition et de l'écriture des variables dans la routine histwrite_phy (le premier appel définit les variables, les suivants écrivent). Nettoyage de phys_output_mod, déplacement des histdef_23d dans iophy. Ajout de prints de débogage dans histwrite_phy.
UG
...................................................

Unification of definition and writing of vars in histwrite_phy routine (the first call defines vars, the others do the writing). Cleaning up of phys_output_mod, moving of histdef23_d routines into iophy. Adding debugging prints to histwrite_phy.
UG

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

    r1797 r1807  
    5050!$OMP THREADPRIVATE(levmin, levmax)
    5151
    52       LOGICAL, SAVE :: vars_defined = .TRUE.
    53 !$OMP THREADPRIVATE(vars_defined)
     52      REAL, SAVE                :: zdtime_moy
     53!$OMP THREADPRIVATE(zdtime_moy)
     54
     55      LOGICAL, SAVE :: vars_defined = .FALSE. ! ug PAS THREADPRIVATE ET C'EST NORMAL
    5456
    5557  TYPE ctrl_out
Note: See TracChangeset for help on using the changeset viewer.