[Dart-dev] [4463] DART/trunk/models/NCOMMAS: Fix the error messages if dates don' t match to be correct

[nancy at ucar.edu]

Revision: 4463
Author:   nancy
Date:     2010-08-04 10:04:55 -0600 (Wed, 04 Aug 2010)
Log Message:
-----------
Fix the error messages if dates don't match to be correct
in what times are what.  Also fix the call to open_file()
to have the right args.

Modified Paths:
--------------
    DART/trunk/models/NCOMMAS/dart_to_ncommas.f90
    DART/trunk/models/NCOMMAS/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/NCOMMAS/dart_to_ncommas.f90
===================================================================
--- DART/trunk/models/NCOMMAS/dart_to_ncommas.f90	2010-08-04 14:46:25 UTC (rev 4462)
+++ DART/trunk/models/NCOMMAS/dart_to_ncommas.f90	2010-08-04 16:04:55 UTC (rev 4463)
@@ -116,7 +116,7 @@
    base_time = get_base_time(ncommas_restart_filename)
    call get_time((model_time  - base_time), diff1)
    call get_time((adv_to_time - base_time), diff2)
-   iunit = open_file('times', 'write')
+   iunit = open_file('times', action='write')
    write(iunit, '(I8, I8)') diff1, diff2
    call close_file(iunit)
 endif

Modified: DART/trunk/models/NCOMMAS/model_mod.f90
===================================================================
--- DART/trunk/models/NCOMMAS/model_mod.f90	2010-08-04 14:46:25 UTC (rev 4462)
+++ DART/trunk/models/NCOMMAS/model_mod.f90	2010-08-04 16:04:55 UTC (rev 4463)
@@ -1564,10 +1564,10 @@
 model_time = get_state_time(ncid, filename)
 
 if ( model_time /= statedate ) then
-   call print_time(model_time,'DART current time',logfileunit) 
-   call print_time( statedate,'ncommas  current time',logfileunit) 
-   call print_time(model_time,'DART current time') 
-   call print_time( statedate,'ncommas  current time') 
+   call print_time( statedate,'DART current time',logfileunit) 
+   call print_time(model_time,'ncommas  current time',logfileunit) 
+   call print_time( statedate,'DART current time') 
+   call print_time(model_time,'ncommas  current time') 
    write(string1,*)trim(filename),' current time /= model time. FATAL error.'
    call error_handler(E_ERR,'sv_to_restart_file',string1,source,revision,revdate) 
 endif