Changeset 161 for trunk/tools/density_binning/binning_neutral_and_co/msfs.pro

Timestamp:

11/12/09 17:15:09 (15 years ago)

Author:

pinsard

Message:

conversion from IDL help header syntax to IDLDOC 2. header syntax

File:

• trunk/tools/density_binning/binning_neutral_and_co/msfs.pro (modified) (5 diffs)

trunk/tools/density_binning/binning_neutral_and_co/msfs.pro

@@ -21 +21 @@
       pe3v     = read_ncdf('e3v_ps',0,/timestep,iodir=ioMESH,/nostruct,/tout,filename=fich_msh)
       vvf = vv * reform(e1v[*]#replicate(1,jpk),jpi,jpj,jpk) * pe3v *vmask()
-
 ;-------------------------
 ; gibraltar cross land adv: 5 Sv
@@ -32 +31 @@
       vvf(167,100, 20  ) = vvf(167,100, 20  )+2.5e+6    *vvmask(167,100, 20  )
       vvf(167,100, 21  ) = vvf(167,100, 21  )+0.8e+6/14.*vvmask(167,100, 21  )
-
 ;-------------------------
 if keyword_set(mask) then begin                 &$
@@ -38 +36 @@
      if (size(mask))[0] eq 2 then vvf=vvf*reform(mask[*]#replicate(1,jpk),jpi,jpj,jpk) &$
 endif                                           &$
-
 ;-------------------------
 ; crude summation
@@ -45 +42 @@
       x1_bin = fltarr(jpj, N_s) ; output array (transport function of density)
           x1_bin(*,*) = 0.e0
-
       FOR is = N_s-1,0,-1 DO begin               &$
          dmsk= density GT s_s(is)                &$
@@ -51 +47 @@
       ENDFOR                                     &$
       msfs=x1_bin *1.e-6
-
 ;------------------------
 return, msfs