Changeset 48 for trunk/INTERP2/newinterp.pro

Timestamp:

03/16/14 20:38:39 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules

File:

• trunk/INTERP2/newinterp.pro (modified) (7 diffs)

trunk/INTERP2/newinterp.pro

@@ -12 +12 @@
 ;
 ; INPUTS :
-;         ORCA_GEO grid file + ORCA_GEO weight file + Input field 
+;         ORCA_GEO grid file + ORCA_GEO weight file + Input field
 ;         on ORCA grid
 ; OUTPUTS :
@@ -108 +108 @@
 
    for jj=0,jpj-1 do begin
-   
-   
+
+
    if mask_reg(ji,jj,0) NE 0 then begin
 
@@ -117 +117 @@
                 + weight(ji,jj,2)*input_field(pointer_i(ji,jj,2)+1,pointer_j(ji,jj,2),*,*) $
                 + weight(ji,jj,3)*input_field(pointer_i(ji,jj,3)+1,pointer_j(ji,jj,3),*,*)
-   
+
    endif
 
@@ -131 +131 @@
 ; Data of the input grid is duplicated for the northern boundary condition
 
-zdata_inv(0:jpi/2 -1 ,*,*,*) = zdata_north(jpi/2:jpi-1,*,*,*) 
-zdata_inv(jpi/2:jpi-1 ,*,*,*) = zdata_north(0:jpi/2-1,*,*,*) 
+zdata_inv(0:jpi/2 -1 ,*,*,*) = zdata_north(jpi/2:jpi-1,*,*,*)
+zdata_inv(jpi/2:jpi-1 ,*,*,*) = zdata_north(0:jpi/2-1,*,*,*)
 zdata_inv = reverse(zdata_inv,2)
 zdata_north(*,jpj:jpj+jplus-1,*,*) = zdata_inv(*,jpj:jpj+jplus-1,*,*)
@@ -178 +178 @@
 
 ; Attributes
-     
+
    id0  = NCDF_VARDEF(idout, 'nav_lon'     , [xidout, yidout                ],/FLOAT )
    id1  = NCDF_VARDEF(idout, 'nav_lat'     , [xidout, yidout                ],/FLOAT )
@@ -207 +207 @@
 
 
-  
+
    NCDF_CONTROL, idout, /ENDEF
 
@@ -222 +222 @@
    NCDF_CLOSE, idout
 
-  
-   
+
+
 
 end
-
-
-
-
-
-
-
-