Changeset 18 for trunk

Timestamp:

03/22/07 10:02:19 (17 years ago)

Author:

pinsard

Message:

remove INTERP2/for_createpro.pro which are not supposed to be here : It interfere with xxx temporary files in myuniquetmpdir

Location:

trunk

Files:

• INTERP2/for_createpro.pro (deleted)
• condmag_on_orca.pro (modified) (10 diffs)
• condmag_output.pro (modified) (9 diffs)

trunk/condmag_on_orca.pro

@@ -24 +24 @@
 ; @keyword DRAKKAR_EXP {type=string}
 ; code for Drakkar experiment
-; only used when orcares = ORC025
+; only used when orcares = ORCA025
 ; must be G42 ++ G70
 ;
@@ -37 +37 @@
 ; provide tools to plot output files
 ; produce a NetCDF GDT or CF compliant
+; introduce <progeomag>../<progeomag> and <pro>...</pro> in postprocessing
+; of idldoc outputs
+; use <pro>fromreg</pro>
 ;
 ; @pre
@@ -45 +48 @@
 ; for ORCA2 filename is meshmask_bab.nc
 ; ++ au pif entre mesh_hgr, mesh_zgr et mask
-; for ORCA0252 filename is ORCA025-G42_mesh_hgr.nc
+; for ORCA025 filename is ORCA025-G42_mesh_hgr.nc
 ;
 ; @post
@@ -83 +86 @@
 ; by Sebastien Masson
 ; to reproduce  /usr/work/sur/fvi/OPA/geomag/cond_sed_ORCA2.nc
-; main differences : no yyyy parameter, no time loop , no mask and no missing
+; main differences : no yyyy parameter, no time loop, no mask and no missing
 ; values (++ to be checked ) in data input (condmag.nc), no scale factor,
 ; no OFFSET, no save of weight and addresses
@@ -208 +211 @@
 ;
 ; existence and protection of ${GEOMAG_ID}
-  IF (FILE_TEST(iodirin, /DIRECTORY,/EXECUTABLE , /READ) EQ 0) THEN BEGIN
+  IF (FILE_TEST(iodirin, /DIRECTORY, /EXECUTABLE, /READ) EQ 0) THEN BEGIN
      msg = 'eee : the directory' + iodirin  + ' is not accessible.'
      PRINT, msg
@@ -218 +221 @@
 ;
 ; check if this file exists
-  fullfilename_condmag = isafile(iodirin + filename_condmag, NEW=0,/MUST_EXIST)
+  fullfilename_condmag = isafile(iodirin + filename_condmag, NEW=0, /MUST_EXIST)
   IF fullfilename_condmag[0] EQ '' THEN BEGIN
      msg = 'eee : the file ' + fullfilename_condmag + ' was not found.'
@@ -244 +247 @@
 ; protection
   IF (FILE_TEST(fullfilename_oce[0], /READ) EQ 0) THEN BEGIN
-     msg = 'eee : the file ' + fullfileoce_condmag[0] + ' is not readable.'
+     msg = 'eee : the file ' + fullfilename_oce[0] + ' is not readable.'
      PRINT, msg
      RETURN
@@ -267 +270 @@
 ;
 ; existence and protection
-  IF (FILE_TEST(iodirout, /DIRECTORY,/WRITE) EQ 0) THEN BEGIN
+  IF (FILE_TEST(iodirout, /DIRECTORY, /WRITE) EQ 0) THEN BEGIN
      msg = 'eee : the directory' + iodirout  + ' was not found.'
      PRINT, msg
@@ -283 +286 @@
   get_gridparams, fullfilename_condmag[0], $
      condmaglonname, condmaglatname, $
-     condmaglon, condmaglat, jpia, jpja, 1,/DOUBLE
+     condmaglon, condmaglat, jpia, jpja, 1, /DOUBLE
 ;
 ;----
@@ -293 +296 @@
   get_gridparams, fullfilename_oce[0], $
      olonname, olatname, $
-     olon, olat, jpio, jpjo, 2,/DOUBLE
+     olon, olat, jpio, jpjo, 2, /DOUBLE
   msg = 'iii : ' + fullfilename_oce[0] + ' opened for read'
   PRINT, msg

trunk/condmag_output.pro

@@ -13 +13 @@
 ;
 ; @param variable {in}{required}{type=structure return by NCDF_VARINQ}
-; { NAME:"", DATATYPE:"", NDIMS:0L, NATTS:0L, DIM:LONARR(NDIMS) }  
-; variable of condmag.nc to be written 
+; { NAME:"", DATATYPE:"", NDIMS:0L, NATTS:0L, DIM:LONARR(NDIMS) }
+; variable of condmag.nc to be written
 ; variable.NAME must be 'cond_sed' or 'Br'
 ;
@@ -55 +55 @@
 ;
 ; @pre
-; reading of condmag.nc 
+; reading of condmag.nc
 ; see condmag_on_orca.pro
 ;
@@ -215 +215 @@
      PRINT, msg
   ENDELSE
-
 ;
 ; check jpjo
@@ -238 +237 @@
      RETURN
   ENDIF ELSE BEGIN
-     msg = 'iii : valid nb of elements olon parameter' 
+     msg = 'iii : valid nb of elements olon parameter'
      PRINT, msg
   ENDELSE
 ;
 ; check values ++
-
 ; test if ${GEOMAG_OD} defined
   geomag_od_env=GETENV('GEOMAG_OD')
@@ -255 +253 @@
              msg = 'iii : ${GEOMAG_OD} is ' + geomag_od_env
              PRINT, msg
-           END 
+           END
   ENDCASE
 ;
@@ -308 +306 @@
   varid[0] = NCDF_VARDEF(netcdf_id, 'nav_lon'  , [dimidx, dimidy], /FLOAT)
   NCDF_ATTPUT, netcdf_id, varid[0], 'units'    , 'degrees_east'
-  NCDF_ATTPUT, netcdf_id, varid[0], 'valid_min', min(olon, max = omax),/FLOAT
-  NCDF_ATTPUT, netcdf_id, varid[0], 'valid_max', omax,/FLOAT
+  NCDF_ATTPUT, netcdf_id, varid[0], 'valid_min', min(olon, max = omax), /FLOAT
+  NCDF_ATTPUT, netcdf_id, varid[0], 'valid_max', omax, /FLOAT
   NCDF_ATTPUT, netcdf_id, varid[0], 'long_name', 'Longitude at t-point'
 ;
   varid[1] = NCDF_VARDEF(netcdf_id, 'nav_lat'  , [dimidx, dimidy], /FLOAT)
   NCDF_ATTPUT, netcdf_id, varid[1], 'units'    , 'degrees_north'
-  NCDF_ATTPUT, netcdf_id, varid[1], 'valid_min', min(olat, max = omax),/FLOAT
-  NCDF_ATTPUT, netcdf_id, varid[1], 'valid_max', omax,/FLOAT
+  NCDF_ATTPUT, netcdf_id, varid[1], 'valid_min', min(olat, max = omax), /FLOAT
+  NCDF_ATTPUT, netcdf_id, varid[1], 'valid_max', omax, /FLOAT
   NCDF_ATTPUT, netcdf_id, varid[1], 'long_name', 'Latitude at t-point'
 ;
@@ -325 +323 @@
 ; pour min  et max, il faut avoir lu la variable ... cf. plus bas ++
 ; donc pour l'instant on les met à valeur manquante
-  NCDF_ATTPUT, netcdf_id, varid[3], 'valid_min', !VALUES.F_NAN ,/FLOAT
-  NCDF_ATTPUT, netcdf_id, varid[3], 'valid_max', !VALUES.F_NAN ,/FLOAT
+  NCDF_ATTPUT, netcdf_id, varid[3], 'valid_min', !VALUES.F_NAN, /FLOAT
+  NCDF_ATTPUT, netcdf_id, varid[3], 'valid_max', !VALUES.F_NAN, /FLOAT
 ;
 ;---------------------------
@@ -337 +335 @@
   NCDF_VARPUT, netcdf_id, 'nav_lat', olat
   NCDF_VARPUT, netcdf_id, varid[2], FLOAT(0.5) ; ++ c'est quoi cette valeur
-
-;---------------------------
 ;
 ; compute min max
@@ -351 +347 @@
 ; update min max attributes
   NCDF_CONTROL, netcdf_id, /REDEF
-  NCDF_ATTPUT, netcdf_id, varid[3], 'valid_min', minarr,/FLOAT
-  NCDF_ATTPUT, netcdf_id, varid[3], 'valid_max', maxarr,/FLOAT
+  NCDF_ATTPUT, netcdf_id, varid[3], 'valid_min', minarr, /FLOAT
+  NCDF_ATTPUT, netcdf_id, varid[3], 'valid_max', maxarr, /FLOAT
   NCDF_CONTROL, netcdf_id, /ENDEF
 ;
-;---------------------------
 ; close the netcdf files
   NCDF_CLOSE, netcdf_id