[Dart-dev] [4377] DART/trunk/models/MITgcm_ocean: Add a width field to the fortran write statements; it makes the gfortran

[nancy at ucar.edu]

Revision: 4377
Author:   nancy
Date:     2010-05-27 13:17:29 -0600 (Thu, 27 May 2010)
Log Message:
-----------
Add a width field to the fortran write statements; it makes the gfortran
compiler happier.  (These are some very old local changes that i'm looking
through, trying to either get them all committed or tossed out.)

Modified Paths:
--------------
    DART/trunk/models/MITgcm_ocean/model_mod.f90
    DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90

-------------- next part --------------
Modified: DART/trunk/models/MITgcm_ocean/model_mod.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/model_mod.f90	2010-05-27 19:05:57 UTC (rev 4376)
+++ DART/trunk/models/MITgcm_ocean/model_mod.f90	2010-05-27 19:17:29 UTC (rev 4377)
@@ -2929,16 +2929,16 @@
       continue
 
    elseif (index(uc_string,'STARTTIME') > 0) then
-      write(nml_string,'('' startTime = '',f,'','')')0.0_r8
+      write(nml_string,'('' startTime = '',f12.6,'','')')0.0_r8
 
    elseif (index(uc_string,'DUMPFREQ') > 0) then
-      write(nml_string,'('' dumpFreq = '',f,'','')')dumpFreq
+      write(nml_string,'('' dumpFreq = '',f12.6,'','')')dumpFreq
 
    elseif (index(uc_string,'ENDTIME') > 0) then
-      write(nml_string,'('' endTime  = '',f,'','')')endTime
+      write(nml_string,'('' endTime  = '',f12.6,'','')')endTime
 
    elseif (index(uc_string,'TAVEFREQ') > 0) then
-      write(nml_string,'('' taveFreq = '',f,'','')')taveFreq
+      write(nml_string,'('' taveFreq = '',f12.8,'','')')taveFreq
 
    endif
 

Modified: DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90	2010-05-27 19:05:57 UTC (rev 4376)
+++ DART/trunk/models/MITgcm_ocean/trans_sv_pv.f90	2010-05-27 19:17:29 UTC (rev 4377)
@@ -122,7 +122,7 @@
 call print_time( model_time,'trans_sv_pv:dart model time')
 call print_time(adv_to_time,'trans_sv_pv:advance_to time')
 call print_time(     offset,'trans_sv_pv:a distance of')
-write(    *      ,'(''trans_sv_pv:PARM03   endTime '',i,'' seconds'')') &
+write(    *      ,'(''trans_sv_pv:PARM03   endTime '',i8,'' seconds'')') &
                    (secs + days*SECPERDAY)
 
 call print_date( model_time,'trans_sv_pv:dart model date',logfileunit)
@@ -130,7 +130,7 @@
 call print_time( model_time,'trans_sv_pv:dart model time',logfileunit)
 call print_time(adv_to_time,'trans_sv_pv:advance_to time',logfileunit)
 call print_time(     offset,'trans_sv_pv:  a distance of',logfileunit)
-write(logfileunit,'(''trans_sv_pv:PARM03   endTime '',i,'' seconds'')') &
+write(logfileunit,'(''trans_sv_pv:PARM03   endTime '',i8,'' seconds'')') &
                    (secs + days*SECPERDAY)
 
 call finalize_utilities()