Changeset 3335


Ignore:
Timestamp:
May 28, 2018, 2:46:59 PM (7 years ago)
Author:
idelkadi
Message:

Correction sur l'initialisation des sorties Cosp :
Definition des axes au 1er appel de Cosp (au lieu de chaque appel).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90

    r3306 r3335  
    343343
    344344!+++++++++++++ Open output files and define output files axis !+++++++++++++
    345 !    if (debut_cosp) then
     345    if (debut_cosp) then
    346346
    347347      !$OMP MASTER
    … …  
    353353      !$OMP BARRIER
    354354        debut_cosp=.false.
    355 !      endif ! debut_cosp
     355     endif ! debut_cosp
    356356!    else
    357357!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Note: See TracChangeset for help on using the changeset viewer.