/[MITgcm]/MITgcm/pkg/ctrl/ctrl_pack.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_pack.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.22 by heimbach, Thu Jul 28 19:51:22 2005 UTC revision 1.32 by gforget, Sat Feb 2 02:34:50 2008 UTC
# Line 114  c--   Assign file names. Line 114  c--   Assign file names.
114        call ctrl_set_fname(xx_aqh_file, fname_aqh, mythid)        call ctrl_set_fname(xx_aqh_file, fname_aqh, mythid)
115        call ctrl_set_fname(xx_precip_file, fname_precip, mythid)        call ctrl_set_fname(xx_precip_file, fname_precip, mythid)
116        call ctrl_set_fname(xx_swflux_file, fname_swflux, mythid)        call ctrl_set_fname(xx_swflux_file, fname_swflux, mythid)
117          call ctrl_set_fname(xx_swdown_file, fname_swdown, mythid)
118          call ctrl_set_fname(xx_lwflux_file, fname_lwflux, mythid)
119          call ctrl_set_fname(xx_lwdown_file, fname_lwdown, mythid)
120          call ctrl_set_fname(xx_evap_file, fname_evap, mythid)
121          call ctrl_set_fname(xx_snowprecip_file, fname_snowprecip, mythid)
122          call ctrl_set_fname(xx_apressure_file, fname_apressure, mythid)
123          call ctrl_set_fname(xx_runoff_file, fname_runoff, mythid)
124    
125        call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid)        call ctrl_set_fname(xx_uwind_file, fname_uwind, mythid)
126        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)        call ctrl_set_fname(xx_vwind_file, fname_vwind, mythid)
127        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)        call ctrl_set_fname(xx_obcsn_file, fname_obcsn, mythid)
# Line 122  c--   Assign file names. Line 130  c--   Assign file names.
130        call ctrl_set_fname(xx_obcse_file, fname_obcse, mythid)        call ctrl_set_fname(xx_obcse_file, fname_obcse, mythid)
131        call ctrl_set_fname(xx_diffkr_file, fname_diffkr, mythid)        call ctrl_set_fname(xx_diffkr_file, fname_diffkr, mythid)
132        call ctrl_set_fname(xx_kapgm_file, fname_kapgm, mythid)        call ctrl_set_fname(xx_kapgm_file, fname_kapgm, mythid)
133          call ctrl_set_fname(xx_kapredi_file, fname_kapredi, mythid)
134        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)
135        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)
136        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)
137        call ctrl_set_fname(xx_hfacc_file, fname_hfacc, mythid)        call ctrl_set_fname(xx_depth_file, fname_depth, mythid)
138        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)
139        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)
140        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)
# Line 136  c--   Assign file names. Line 145  c--   Assign file names.
145        call ctrl_set_fname(xx_etan_file, fname_etan, mythid)        call ctrl_set_fname(xx_etan_file, fname_etan, mythid)
146        call ctrl_set_fname(xx_relaxsst_file, fname_relaxsst, mythid)        call ctrl_set_fname(xx_relaxsst_file, fname_relaxsst, mythid)
147        call ctrl_set_fname(xx_relaxsss_file, fname_relaxsss, mythid)        call ctrl_set_fname(xx_relaxsss_file, fname_relaxsss, mythid)
148          call ctrl_set_fname(xx_siarea_file, fname_siarea, mythid)
149          call ctrl_set_fname(xx_siheff_file, fname_siheff, mythid)
150          call ctrl_set_fname(xx_sihsnow_file, fname_sihsnow, mythid)
151    cHFLUXM_CONTROL
152          call ctrl_set_fname(xx_hfluxm_file, fname_hfluxm, mythid)
153    cHFLUXM_CONTROL
154    
155  c--   Only the master thread will do I/O.  c--   Only the master thread will do I/O.
156        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
# Line 208  C     place holder of obsolete variable Line 223  C     place holder of obsolete variable
223  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
224            ivartype = 1            ivartype = 1
225            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
226            write(weighttype(1:80),'(a)') "wtheta"            write(weighttype(1:80),'(a)') "wthetaLev"
227            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
228       &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
229       &         weighttype, wtheta, lxxadxx, mythid)       &         weighttype, wtheta, lxxadxx, mythid)
# Line 217  C     place holder of obsolete variable Line 232  C     place holder of obsolete variable
232  #ifdef ALLOW_SALT0_CONTROL  #ifdef ALLOW_SALT0_CONTROL
233            ivartype = 2            ivartype = 2
234            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
235            write(weighttype(1:80),'(a)') "wsalt"            write(weighttype(1:80),'(a)') "wsaltLev"
236            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
237       &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
238       &         weighttype, wsalt, lxxadxx, mythid)       &         weighttype, wsalt, lxxadxx, mythid)
239  #endif  #endif
240    
241  #if (defined (ALLOW_HFLUX_CONTROL) || \  #if (defined (ALLOW_HFLUX_CONTROL) || defined (ALLOW_HFLUX0_CONTROL))
      defined (ALLOW_HFLUX0_CONTROL))  
242            ivartype = 3            ivartype = 3
243            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
244            write(weighttype(1:80),'(a)') "whflux"            write(weighttype(1:80),'(a)') "whflux"
# Line 233  C     place holder of obsolete variable Line 247  C     place holder of obsolete variable
247       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
248  #endif  #endif
249    
250  #if (defined (ALLOW_SFLUX_CONTROL) || \  #if (defined (ALLOW_SFLUX_CONTROL) || defined (ALLOW_SFLUX0_CONTROL))
      defined (ALLOW_SFLUX0_CONTROL))  
251            ivartype = 4            ivartype = 4
252            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
253            write(weighttype(1:80),'(a)') "wsflux"            write(weighttype(1:80),'(a)') "wsflux"
# Line 243  C     place holder of obsolete variable Line 256  C     place holder of obsolete variable
256       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
257  #endif  #endif
258    
259  #if (defined (ALLOW_USTRESS_CONTROL) || \  #if (defined (ALLOW_USTRESS_CONTROL) || defined (ALLOW_TAUU0_CONTROL))
      defined (ALLOW_TAUU0_CONTROL))  
260            ivartype = 5            ivartype = 5
261            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
262            write(weighttype(1:80),'(a)') "wtauu"            write(weighttype(1:80),'(a)') "wtauu"
# Line 253  C     place holder of obsolete variable Line 265  C     place holder of obsolete variable
265       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
266  #endif  #endif
267    
268  #if (defined (ALLOW_VSTRESS_CONTROL) || \  #if (defined (ALLOW_VSTRESS_CONTROL) || defined (ALLOW_TAUV0_CONTROL))
      defined (ALLOW_TAUV0_CONTROL))  
269            ivartype = 6            ivartype = 6
270            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
271            write(weighttype(1:80),'(a)') "wtauv"            write(weighttype(1:80),'(a)') "wtauv"
# Line 341  C     place holder of obsolete variable Line 352  C     place holder of obsolete variable
352            write(weighttype(1:80),'(a)') "wdiffkr"            write(weighttype(1:80),'(a)') "wdiffkr"
353            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
354       &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_diffkr(ictrlgrad), "maskCtrlC",
355       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wdiffkr, lxxadxx, mythid)
356  #endif  #endif
357    
358  #ifdef ALLOW_KAPGM_CONTROL  #ifdef ALLOW_KAPGM_CONTROL
# Line 350  C     place holder of obsolete variable Line 361  C     place holder of obsolete variable
361            write(weighttype(1:80),'(a)') "wkapgm"            write(weighttype(1:80),'(a)') "wkapgm"
362            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
363       &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_kapgm(ictrlgrad), "maskCtrlC",
364       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wkapgm, lxxadxx, mythid)
365  #endif  #endif
366    
367  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
# Line 362  C     place holder of obsolete variable Line 373  C     place holder of obsolete variable
373       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wunit, lxxadxx, mythid)
374  #endif  #endif
375    
376  #ifdef ALLOW_SST0_CONTROL  #if (defined (ALLOW_SST_CONTROL) || defined (ALLOW_SST0_CONTROL))
377            ivartype = 18            ivartype = 18
378            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
379            write(weighttype(1:80),'(a)') "wsst0"            write(weighttype(1:80),'(a)') "wsst"
380            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
381       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
382       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
383  #endif  #endif
384    
385  #ifdef ALLOW_SSS0_CONTROL  #if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL))
386            ivartype = 19            ivartype = 19
387            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
388            write(weighttype(1:80),'(a)') "wsss0"            write(weighttype(1:80),'(a)') "wsss"
389            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
390       &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_sss(ictrlgrad),
391       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
392  #endif  #endif
393    
394  #ifdef ALLOW_HFACC_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
395            ivartype = 20            ivartype = 20
396            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
397            write(weighttype(1:80),'(a)') "whfacc"            write(weighttype(1:80),'(a)') "wdepth"
 # ifdef ALLOW_HFACC3D_CONTROL  
           call ctrl_set_pack_xyz(  
      &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",  
      &         weighttype, wunit, lxxadxx, mythid)  
 # else  
398            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
399       &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_depth(ictrlgrad),
400       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
401  # endif  #endif /* ALLOW_DEPTH_CONTROL */
 #endif  
402    
403  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
404            ivartype = 21            ivartype = 21
# Line 422  C     place holder of obsolete variable Line 427  C     place holder of obsolete variable
427       &      weighttype, lxxadxx, mythid)       &      weighttype, lxxadxx, mythid)
428  #endif  #endif
429    
430    #ifdef ALLOW_HFLUXM_CONTROL
431              ivartype = 24
432              write(weighttype(1:80),'(80a)') ' '
433              write(weighttype(1:80),'(a)') "whfluxm"
434              call ctrl_set_pack_xy(
435         &         cunit, ivartype, fname_hfluxm(ictrlgrad), "maskCtrlC",
436         &         weighttype, lxxadxx, mythid)
437    #endif
438    
439  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_EDTAUX_CONTROL
440            ivartype = 25            ivartype = 25
441            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
442            write(weighttype(1:80),'(a)') "wedtaux"            write(weighttype(1:80),'(a)') "wedtaux"
443            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
444       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
445       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wedtaux, lxxadxx, mythid)
446  #endif  #endif
447    
448  #ifdef ALLOW_EDTAUY_CONTROL  #ifdef ALLOW_EDTAUY_CONTROL
# Line 437  C     place holder of obsolete variable Line 451  C     place holder of obsolete variable
451            write(weighttype(1:80),'(a)') "wedtauy"            write(weighttype(1:80),'(a)') "wedtauy"
452            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
453       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",       &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskCtrlS",
454       &         weighttype, wunit, lxxadxx, mythid)       &         weighttype, wedtauy, lxxadxx, mythid)
455  #endif  #endif
456    
457  #ifdef ALLOW_UVEL0_CONTROL  #ifdef ALLOW_UVEL0_CONTROL
# Line 463  C     place holder of obsolete variable Line 477  C     place holder of obsolete variable
477            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
478            write(weighttype(1:80),'(a)') "wetan"            write(weighttype(1:80),'(a)') "wetan"
479            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
480       &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_etan(ictrlgrad),
481       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
482  #endif  #endif
483    
484  #ifdef ALLOW_RELAXSST_CONTROL  #ifdef ALLOW_RELAXSST_CONTROL
# Line 472  C     place holder of obsolete variable Line 486  C     place holder of obsolete variable
486            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
487            write(weighttype(1:80),'(a)') "wrelaxsst"            write(weighttype(1:80),'(a)') "wrelaxsst"
488            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
489       &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_relaxsst(ictrlgrad),
490       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
491  #endif  #endif
492    
493  #ifdef ALLOW_RELAXSSS_CONTROL  #ifdef ALLOW_RELAXSSS_CONTROL
# Line 481  C     place holder of obsolete variable Line 495  C     place holder of obsolete variable
495            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
496            write(weighttype(1:80),'(a)') "wrelaxsss"            write(weighttype(1:80),'(a)') "wrelaxsss"
497            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
498       &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_relaxsss(ictrlgrad),
499       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
500  #endif  #endif
501    
502  #ifdef ALLOW_PRECIP_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
# Line 490  C     place holder of obsolete variable Line 504  C     place holder of obsolete variable
504            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
505            write(weighttype(1:80),'(a)') "wprecip"            write(weighttype(1:80),'(a)') "wprecip"
506            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
507       &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_precip(ictrlgrad),
508       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
509  #endif  #endif
510    
511  #ifdef ALLOW_SWFLUX_CONTROL  #ifdef ALLOW_SWFLUX_CONTROL
# Line 499  C     place holder of obsolete variable Line 513  C     place holder of obsolete variable
513            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
514            write(weighttype(1:80),'(a)') "wswflux"            write(weighttype(1:80),'(a)') "wswflux"
515            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
516       &         cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_swflux(ictrlgrad),
517       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
518    #endif
519    
520    #ifdef ALLOW_SWDOWN_CONTROL
521              ivartype = 34
522              write(weighttype(1:80),'(80a)') ' '
523              write(weighttype(1:80),'(a)') "wswdown"
524              call ctrl_set_pack_xy(
525         &         cunit, ivartype, fname_swdown(ictrlgrad),
526         &         "maskCtrlC", weighttype, lxxadxx, mythid)
527    #endif
528    
529    #ifdef ALLOW_LWFLUX_CONTROL
530              ivartype = 35
531              write(weighttype(1:80),'(80a)') ' '
532              write(weighttype(1:80),'(a)') "wlwflux"
533              call ctrl_set_pack_xy(
534         &         cunit, ivartype, fname_lwflux(ictrlgrad),
535         &         "maskCtrlC", weighttype, lxxadxx, mythid)
536    #endif
537    
538    #ifdef ALLOW_LWDOWN_CONTROL
539              ivartype = 36
540              write(weighttype(1:80),'(80a)') ' '
541              write(weighttype(1:80),'(a)') "wlwdown"
542              call ctrl_set_pack_xy(
543         &         cunit, ivartype, fname_lwdown(ictrlgrad),
544         &         "maskCtrlC", weighttype, lxxadxx, mythid)
545    #endif
546    
547    #ifdef ALLOW_EVAP_CONTROL
548              ivartype = 37
549              write(weighttype(1:80),'(80a)') ' '
550              write(weighttype(1:80),'(a)') "wevap"
551              call ctrl_set_pack_xy(
552         &         cunit, ivartype, fname_evap(ictrlgrad),
553         &         "maskCtrlC", weighttype, lxxadxx, mythid)
554    #endif
555    
556    #ifdef ALLOW_SNOWPRECIP_CONTROL
557              ivartype = 38
558              write(weighttype(1:80),'(80a)') ' '
559              write(weighttype(1:80),'(a)') "wsnowprecip"
560              call ctrl_set_pack_xy(
561         &         cunit, ivartype, fname_snowprecip(ictrlgrad),
562         &         "maskCtrlC", weighttype, lxxadxx, mythid)
563    #endif
564    
565    #ifdef ALLOW_APRESSURE_CONTROL
566              ivartype = 39
567              write(weighttype(1:80),'(80a)') ' '
568              write(weighttype(1:80),'(a)') "wapressure"
569              call ctrl_set_pack_xy(
570         &         cunit, ivartype, fname_apressure(ictrlgrad),
571         &         "maskCtrlC", weighttype, lxxadxx, mythid)
572    #endif
573    
574    #ifdef ALLOW_RUNOFF_CONTROL
575              ivartype = 40
576              write(weighttype(1:80),'(80a)') ' '
577              write(weighttype(1:80),'(a)') "wrunoff"
578              call ctrl_set_pack_xy(
579         &         cunit, ivartype, fname_runoff(ictrlgrad),
580         &         "maskCtrlC", weighttype, lxxadxx, mythid)
581    #endif
582    
583    #ifdef ALLOW_SIAREA_CONTROL
584              ivartype = 41
585              write(weighttype(1:80),'(80a)') ' '
586              write(weighttype(1:80),'(a)') "wunit"
587              call ctrl_set_pack_xy(
588         &         cunit, ivartype, fname_siarea(ictrlgrad),
589         &         "maskCtrlC", weighttype, lxxadxx, mythid)
590    #endif
591    
592    #ifdef ALLOW_SIHEFF_CONTROL
593              ivartype = 42
594              write(weighttype(1:80),'(80a)') ' '
595              write(weighttype(1:80),'(a)') "wunit"
596              call ctrl_set_pack_xy(
597         &         cunit, ivartype, fname_siheff(ictrlgrad),
598         &         "maskCtrlC", weighttype, lxxadxx, mythid)
599    #endif
600    
601    #ifdef ALLOW_SIHSNOW_CONTROL
602              ivartype = 43
603              write(weighttype(1:80),'(80a)') ' '
604              write(weighttype(1:80),'(a)') "wunit"
605              call ctrl_set_pack_xy(
606         &         cunit, ivartype, fname_sihsnow(ictrlgrad),
607         &         "maskCtrlC", weighttype, lxxadxx, mythid)
608    #endif
609    
610    #ifdef ALLOW_KAPREDI_CONTROL
611              ivartype = 44
612              write(weighttype(1:80),'(80a)') ' '
613              write(weighttype(1:80),'(a)') "wkapredi"
614              call ctrl_set_pack_xyz(
615         &         cunit, ivartype, fname_kapredi(ictrlgrad), "maskCtrlC",
616         &         weighttype, wkapredi, lxxadxx, mythid)
617  #endif  #endif
618    
619            close ( cunit )            close ( cunit )
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22