Changeset 2056 for LMDZ5/branches/testing/libf/phylmd/rrtm/sucst.F90

Timestamp:

Jun 11, 2014, 3:46:46 PM (11 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1997:2055 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/sucst.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/rrtm/sucst.F90

@@ -289 +289 @@
   WRITE(KULOUT,'(10(1X,E10.4))') (ESW(RTT+10._JPRB*J),J=-4,4)
   WRITE(KULOUT,'(10(1X,E10.4))') (ESS(RTT+10._JPRB*J),J=-4,4)
-  call flush()       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
+!  call flush(0)       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
    do j=1,9
      print*,'TEST J',j
@@ -295 +295 @@
      print*,'ES(RTT...',ES(RTT+10._JPRB*(J-5))
    enddo
-  call flush()
+  call flush(0)
 
   WRITE(KULOUT,'(10(1X,E10.4))') (ES (RTT+10._JPRB*J),J=-4,4)