Removing commented out code using iargc and additional lines commente…

…d out
NCAR · Jan 10, 2024 · feaeb90 · feaeb90
1 parent 0c33a10
commit feaeb90
Showing 1 changed file with 6 additions and 10 deletions.
diff --git a/observations/obs_converters/AIRS/L1_AMSUA_to_netcdf.f90 b/observations/obs_converters/AIRS/L1_AMSUA_to_netcdf.f90
@@ -73,16 +73,12 @@ program L1_AMSUA_to_netcdf
 if (do_nml_file()) write(nmlfileunit, nml=L1_AMSUA_to_netcdf_nml)
 if (do_nml_term()) write(    *      , nml=L1_AMSUA_to_netcdf_nml)
 
-
-!if (iargc().ne.3) then
-    print *, "This code extracts a single profile from a specified"
-    print *, " input file to stdout. It requires exactly three "
-    print *, "arguments."
-    print *, "  1) scan line number [1, 45]"
-    print *, "  2) field-of-view number [1, 30]"
-    print *, "  3) file name"
-!    STOP
-! end if 
+print *, "This code extracts a single profile from a specified"
+print *, " input file to stdout. It requires exactly three "
+print *, "arguments."
+print *, "  1) scan line number [1, 45]"
+print *, "  2) field-of-view number [1, 30]"
+print *, "  3) file name"
 
 if (track.lt.1.OR.track.gt.45) then
   print *, "Error: along-track scan line number [1, 45]"