Ignore:
Timestamp:
Jul 30, 2008, 5:50:03 PM (16 years ago)
Author:
Laurent Fairhead
Message:

Mise a jour de dyn3dpar par rapport a dyn3d, inclusion OpenMP et filtre FFT YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/gcm.F

    r960 r985  
    1818      USE mod_hallo
    1919      USE Bands
    20       USE Write_Field
    21       USE Write_Field_phy
    2220      IMPLICIT NONE
    2321
    … …  
    225223      if (mpi_rank==0) call WriteBands
    226224      call SetDistrib(jj_Nb_Caldyn)
     225
     226c$OMP PARALLEL
    227227      call Init_Mod_hallo
     228c$OMP END PARALLEL
    228229
    229230c$OMP PARALLEL
Note: See TracChangeset for help on using the changeset viewer.