Changeset 95 for trunk/src

Timestamp:

08/26/11 17:37:13 (13 years ago)

Author:

pinsard

Message:

dynamic creation date

File:

• trunk/src/ws_tropflux_1d_to_1m_ncdf.pro (modified) (8 diffs)

trunk/src/ws_tropflux_1d_to_1m_ncdf.pro

@@ -50 +50 @@
 ;  IDL> ws_tropflux_1d_to_1m_ncdf
 ;
+; KNOWN ISSUES
+; ============
+;
+; test of existence of fullfilename_in not very efficient because
+; MUST_EXIST keyword of :func:`isafile <saxo:isafile>` not yet implemented
+;
 ; TODO
 ; ====
 ;
-; remove hard coded creation date
+; coding rules
+;
+; get rid of hard coded yyyymmdd and nb month
 ;
 ; include in the whole process
@@ -65 +73 @@
 ;
 ; $URL$
+;
+; - fplod 20110826T151225Z aedon.locean-ipsl.upmc.fr (Darwin)
+;
+;   * remove hard coded creation date
 ;
 ; - fplod 20110817T084001Z aedon.locean-ipsl.upmc.fr (Darwin)
@@ -118 +130 @@
 ;
 ; check if this file exists
+msg='iii : looking for ' + filename
+ras = report(msg)
 fullfilename = isafile(iodirout + filename, NEW=0, /MUST_EXIST)
 IF fullfilename[0] EQ '' THEN BEGIN
@@ -136 +150 @@
 ;
 initncdf, fullfilename
-st=19890101 
+st=19890101
 en=20101231
 ws=read_ncdf("ws", st, en, file=fullfilename,/nostr)
@@ -146 +160 @@
 ;; Monthly data
 ;
-jpt=22*12. 
+jpt=22*12.
 time=timegen(jpt,start=julday(1,15,1989),units='Months')
 caldat, tt,m,d,y
@@ -165 +179 @@
 cda1=string(jul2date(time(jpt-1)),format='(i8.8)')
 time=time-julday(1,1,1950,00,00,00)
-xlon=reform(glamt(firstxt:lastxt,0) ) 
+xlon=reform(glamt(firstxt:lastxt,0))
 ylat=reform(gphit(0,firstyt:lastyt))
 
@@ -175 +189 @@
 time_attr={units:'days since 1950-01-01 00:00:00',long_name:'Time axis',time_origin:'1950-JAN-01 00:00:00'}
 ws_attr={units:'m/s',missing_value:1.e20,long_name:'Mean wind speed at 10m height',short_name:'ws',axis:'TYX'}
-globattr={Source:'TropFlux - Air-Sea Fluxes for the Global Tropics', Metodology:'Praveen Kumar et al., Clim. Dyn 2011', Producer_Agency:'Joint research colloboration between IPSL, Paris and NIO, India', Time_range:cda0+' - '+cda1, Creation_date:'20110815', Website:'http://www.locean-ipsl.upmc.fr/tropflux/'}
+
+creation_date=string(jul2date(SYSTIME( /JULIAN , /UTC )), format='(I8)')
+
+globattr={Source:'TropFlux - Air-Sea Fluxes for the Global Tropics' $
+    , Methodology:'Praveen Kumar et al., Clim. Dyn 2011' $
+    , Producer_Agency:'Joint research colloboration between IPSL, Paris and NIO, India' $
+    , Time_range:cda0+' - '+cda1 $
+    , Creation_date:creation_date $
+    , Website:'http://www.locean-ipsl.upmc.fr/tropflux/'}
 
 
@@ -189 +211 @@
 
 end
-