[Dart-dev] [5901] DART/branches/development/obs_def/obs_def_TES_nadir_mod.f90: put in missing source, revision, revdate arguments to

nancy at ucar.edu nancy at ucar.edu
Thu Oct 18 16:21:32 MDT 2012


Revision: 5901
Author:   thoar
Date:     2012-10-18 16:21:31 -0600 (Thu, 18 Oct 2012)
Log Message:
-----------
put in missing source,revision,revdate arguments to
the error_handler in a few spots.

Modified Paths:
--------------
    DART/branches/development/obs_def/obs_def_TES_nadir_mod.f90

-------------- next part --------------
Modified: DART/branches/development/obs_def/obs_def_TES_nadir_mod.f90
===================================================================
--- DART/branches/development/obs_def/obs_def_TES_nadir_mod.f90	2012-10-18 16:29:45 UTC (rev 5900)
+++ DART/branches/development/obs_def/obs_def_TES_nadir_mod.f90	2012-10-18 22:21:31 UTC (rev 5901)
@@ -313,7 +313,8 @@
 open( UNIT=k_unit, FILE=trim(fn), STATUS='old', IOSTAT=istat )
 if ( istat > 0 ) then
    write(msgstr,*)'istat > 0 for opening fn_corrk :: istat = ',istat
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 
 ! 4. Begin reading process
@@ -322,39 +323,45 @@
 read( UNIT=k_unit, FMT=*, IOSTAT=istat ) iflag
 if ( istat > 0 ) then
    write(msgstr,*)'istat > 0 for reading iflag :: istat = ',istat
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 if ( iflag /= 1 ) then
    write(msgstr,*)'iflag .ne. 1 in fn_corrk :: iflag = ',iflag
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 
 ! 4. b. nv -- number of wavenumbers
 read( UNIT=k_unit, FMT=*, IOSTAT=istat ) nv
 if ( istat > 0 ) then
    write(msgstr,*)'istat > 0 for reading nv :: istat = ',istat
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 
 ! 4. c. np -- number of pressures
 read( UNIT=k_unit, FMT=*, IOSTAT=istat ) np
 if ( istat > 0 ) then
    write(msgstr,*)'istat > 0 for reading np :: istat = ',istat
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 
 ! 4. d. nt -- number of temperatures  
 read( UNIT=k_unit, FMT=*, IOSTAT=istat ) nt
 if ( istat > 0 ) then
    write(msgstr,*)'istat > 0 for reading nt :: istat = ',istat
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 
 ! 4. e. ng -- number of gaussian abscissae
 read( UNIT=k_unit, FMT=*, IOSTAT=istat ) ng
 if ( istat > 0 ) then
    write(msgstr,*)'istat > 0 for reading ng :: istat = ',istat
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 
 ! 5. Allocate array sizes based on what we just read in
@@ -369,21 +376,24 @@
 read( UNIT=k_unit, FMT=*, IOSTAT=istat ) ( ck_v(k), k=1,nv )
 if ( istat > 0 ) then
    write(msgstr,*)'istat > 0 for reading ck_v :: istat = ',istat
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 
 ! 6. b. ck_p -- array of pressures included in k-tables
 read( UNIT=k_unit, FMT=*, IOSTAT=istat ) ( ck_p(k), k=1,np )
 if ( istat > 0 ) then
    write(msgstr,*)'istat > 0 for reading ck_p :: istat = ',istat
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 
 ! 6. c. ck_t -- array of temperatures included in k-tables
 read( UNIT=k_unit, FMT=*, IOSTAT=istat ) ( ck_t(k), k=1,nt )
 if ( istat > 0 ) then
    write(msgstr,*)'istat > 0 for reading ck_t :: istat = ',istat
-   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+   call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
 end if
 
 ! 7. Close the lattice file
@@ -399,13 +409,15 @@
    open( UNIT=k_unit, FILE=trim(fn), STATUS='old', IOSTAT=istat )
    if ( istat > 0 ) then
       write(msgstr,*)'istat > 0 for opening k-table file ',iv,' :: istat = ',istat
-      call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+      call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
    end if
    ! Read in the k-table data into the array "values"
    read( UNIT=k_unit, FMT=*, IOSTAT=istat ) (((values(ig,it,ip,iv), ig=1,ng), it=1,nt), ip=1,np)
    if ( istat > 0 ) then
       write(msgstr,*)'istat > 0 for reading k-table file ',iv,' :: istat = ',istat
-      call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr)
+      call error_handler(E_ERR, 'obs_def_TES_nadir_mod:init_corrk', msgstr, &
+                      source, revision, revdate)
    end if
    ! Close the file
    close( UNIT=k_unit )


More information about the Dart-dev mailing list