Changeset 1995


Ignore:
Timestamp:
Mar 10, 2014, 5:00:43 PM (10 years ago)
Author:
Laurent Fairhead
Message:

Utile uniquement pour les tests

Needed only for test purposes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/gcm.F

    r1907 r1995  
    548548c$OMP END PARALLEL
    549549
    550       OPEN(unit=5487,file='ok_lmdz',status='replace')
    551       WRITE(5487,*) 'ok_lmdz'
    552       CLOSE(5487)
     550!      OPEN(unit=5487,file='ok_lmdz',status='replace')
     551!      WRITE(5487,*) 'ok_lmdz'
     552!      CLOSE(5487)
    553553      END
    554554
Note: See TracChangeset for help on using the changeset viewer.