Changeset 1279 for LMDZ4/trunk/libf/phylmd/printflag.F

Timestamp:

Dec 10, 2009, 10:02:56 AM (14 years ago)

Author:

Laurent Fairhead

Message:

Merged LMDZ4-dev branch changes r1241:1278 into the trunk
Running trunk and LMDZ4-dev in LMDZOR configuration on local
machine (sequential) and SX8 (4-proc) yields identical results
(restart and restartphy are identical binarily)
Log history from r1241 to r1278 is available by switching to
source:LMDZ4/branches/LMDZ4-dev-20091210

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/printflag.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/printflag.F

@@ -132 +132 @@
        PRINT 100
 
- 4    FORMAT(2x,5(1H*),'  ok_journe= ',l3,3x,',ok_instan = ',
-     , l3,3x,',ok_region = ',l3,3x,5(1H*) )
+ 4    FORMAT(2x,5("*"),'  ok_journe= ',l3,3x,',ok_instan = ',
+     , l3,3x,',ok_region = ',l3,3x,5("*") )
 
- 7     FORMAT(2x,5(1H*),15x,'      ok_limitvrai   = ',l3,16x,5(1h*) )
+ 7     FORMAT(2x,5("*"),15x,'      ok_limitvrai   = ',l3,16x,5("*") )
 
  8     FORMAT(2x,'*****             radpas    =                      ' ,
      , i4,6x,' *****')
 
- 10    FORMAT(2x,5(1H*),'    Cycle_diurne = ',l3,4x,', Soil_model = ',
-     , l3,12x,6(1H*) )
+ 10    FORMAT(2x,5("*"),'    Cycle_diurne = ',l3,4x,', Soil_model = ',
+     , l3,12x,6("*") )
 
 
- 11    FORMAT(2x,5(1H*),'  new_oliq = ',l3,3x,', Ok_orodr = ',
-     , l3,3x,', Ok_orolf = ',l3,3x,5(1H*) )
+ 11    FORMAT(2x,5("*"),'  new_oliq = ',l3,3x,', Ok_orodr = ',
+     , l3,3x,', Ok_orolf = ',l3,3x,5("*") )