Changeset 1702 for LMDZ5/trunk


Ignore:
Timestamp:
Dec 21, 2012, 3:32:49 PM (12 years ago)
Author:
Laurent Fairhead
Message:

To avoid conflict (incompatible and redundant open statements) with
conf_gcm FH

Location:
LMDZ5/trunk/libf/phy1d
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phy1d/1DUTILS.h_no_writelim

    r1608 r1702  
    5252!Config         (defaut sortie standard = 6)
    5353      lunout=6
    54       CALL getin('lunout', lunout)
     54!      CALL getin('lunout', lunout)
    5555      IF (lunout /= 5 .and. lunout /= 6) THEN
    5656        OPEN(lunout,FILE='lmdz.out')

  • LMDZ5/trunk/libf/phy1d/1DUTILS.h_with_writelim

    r1608 r1702  
    5252!Config         (defaut sortie standard = 6)
    5353      lunout=6
    54       CALL getin('lunout', lunout)
     54!      CALL getin('lunout', lunout)
    5555      IF (lunout /= 5 .and. lunout /= 6) THEN
    5656        OPEN(lunout,FILE='lmdz.out')

  • LMDZ5/trunk/libf/phy1d/1DUTILS.h_with_writelim_old

    r1608 r1702  
    5252!Config         (defaut sortie standard = 6)
    5353      lunout=6
    54       CALL getin('lunout', lunout)
     54!      CALL getin('lunout', lunout)
    5555      IF (lunout /= 5 .and. lunout /= 6) THEN
    5656        OPEN(lunout,FILE='lmdz.out')
Note: See TracChangeset for help on using the changeset viewer.