/[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.28 by heimbach, Wed Jun 7 01:55:14 2006 UTC revision 1.29 by heimbach, Fri Oct 27 05:16:54 2006 UTC
# Line 115  c--   Assign file names. Line 115  c--   Assign file names.
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)        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 373  C     place holder of obsolete variable Line 380  C     place holder of obsolete variable
380            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
381            write(weighttype(1:80),'(a)') "wsss"            write(weighttype(1:80),'(a)') "wsss"
382            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
383       &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_sss(ictrlgrad),
384       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
385  #endif  #endif
386    
387  #ifdef ALLOW_DEPTH_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
# Line 382  C     place holder of obsolete variable Line 389  C     place holder of obsolete variable
389            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
390            write(weighttype(1:80),'(a)') "wdepth"            write(weighttype(1:80),'(a)') "wdepth"
391            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
392       &         cunit, ivartype, fname_depth(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_depth(ictrlgrad),
393       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
394  #endif /* ALLOW_DEPTH_CONTROL */  #endif /* ALLOW_DEPTH_CONTROL */
395    
396  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
# Line 454  C     place holder of obsolete variable Line 461  C     place holder of obsolete variable
461            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
462            write(weighttype(1:80),'(a)') "wetan"            write(weighttype(1:80),'(a)') "wetan"
463            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
464       &         cunit, ivartype, fname_etan(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_etan(ictrlgrad),
465       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
466  #endif  #endif
467    
468  #ifdef ALLOW_RELAXSST_CONTROL  #ifdef ALLOW_RELAXSST_CONTROL
# Line 463  C     place holder of obsolete variable Line 470  C     place holder of obsolete variable
470            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
471            write(weighttype(1:80),'(a)') "wrelaxsst"            write(weighttype(1:80),'(a)') "wrelaxsst"
472            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
473       &         cunit, ivartype, fname_relaxsst(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_relaxsst(ictrlgrad),
474       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
475  #endif  #endif
476    
477  #ifdef ALLOW_RELAXSSS_CONTROL  #ifdef ALLOW_RELAXSSS_CONTROL
# Line 472  C     place holder of obsolete variable Line 479  C     place holder of obsolete variable
479            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
480            write(weighttype(1:80),'(a)') "wrelaxsss"            write(weighttype(1:80),'(a)') "wrelaxsss"
481            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
482       &         cunit, ivartype, fname_relaxsss(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_relaxsss(ictrlgrad),
483       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
484  #endif  #endif
485    
486  #ifdef ALLOW_PRECIP_CONTROL  #ifdef ALLOW_PRECIP_CONTROL
# Line 481  C     place holder of obsolete variable Line 488  C     place holder of obsolete variable
488            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
489            write(weighttype(1:80),'(a)') "wprecip"            write(weighttype(1:80),'(a)') "wprecip"
490            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
491       &         cunit, ivartype, fname_precip(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_precip(ictrlgrad),
492       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
493  #endif  #endif
494    
495  #ifdef ALLOW_SWFLUX_CONTROL  #ifdef ALLOW_SWFLUX_CONTROL
# Line 490  C     place holder of obsolete variable Line 497  C     place holder of obsolete variable
497            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
498            write(weighttype(1:80),'(a)') "wswflux"            write(weighttype(1:80),'(a)') "wswflux"
499            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
500       &         cunit, ivartype, fname_swflux(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_swflux(ictrlgrad),
501       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
502  #endif  #endif
503    
504  #ifdef ALLOW_SWDOWN_CONTROL  #ifdef ALLOW_SWDOWN_CONTROL
# Line 499  C     place holder of obsolete variable Line 506  C     place holder of obsolete variable
506            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
507            write(weighttype(1:80),'(a)') "wswdown"            write(weighttype(1:80),'(a)') "wswdown"
508            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
509       &         cunit, ivartype, fname_swdown(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_swdown(ictrlgrad),
510       &         weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
511    #endif
512    
513    #ifdef ALLOW_LWFLUX_CONTROL
514              ivartype = 35
515              write(weighttype(1:80),'(80a)') ' '
516              write(weighttype(1:80),'(a)') "wlwflux"
517              call ctrl_set_pack_xy(
518         &         cunit, ivartype, fname_lwflux(ictrlgrad),
519         &         "maskCtrlC", weighttype, lxxadxx, mythid)
520    #endif
521    
522    #ifdef ALLOW_LWDOWN_CONTROL
523              ivartype = 36
524              write(weighttype(1:80),'(80a)') ' '
525              write(weighttype(1:80),'(a)') "wlwdown"
526              call ctrl_set_pack_xy(
527         &         cunit, ivartype, fname_lwdown(ictrlgrad),
528         &         "maskCtrlC", weighttype, lxxadxx, mythid)
529    #endif
530    
531    #ifdef ALLOW_EVAP_CONTROL
532              ivartype = 37
533              write(weighttype(1:80),'(80a)') ' '
534              write(weighttype(1:80),'(a)') "wevap"
535              call ctrl_set_pack_xy(
536         &         cunit, ivartype, fname_evap(ictrlgrad),
537         &         "maskCtrlC", weighttype, lxxadxx, mythid)
538    #endif
539    
540    #ifdef ALLOW_SNOWPRECIP_CONTROL
541              ivartype = 38
542              write(weighttype(1:80),'(80a)') ' '
543              write(weighttype(1:80),'(a)') "wsnowprecip"
544              call ctrl_set_pack_xy(
545         &         cunit, ivartype, fname_snowprecip(ictrlgrad),
546         &         "maskCtrlC", weighttype, lxxadxx, mythid)
547    #endif
548    
549    #ifdef ALLOW_APRESSURE_CONTROL
550              ivartype = 39
551              write(weighttype(1:80),'(80a)') ' '
552              write(weighttype(1:80),'(a)') "wapressure"
553              call ctrl_set_pack_xy(
554         &         cunit, ivartype, fname_apressure(ictrlgrad),
555         &         "maskCtrlC", weighttype, lxxadxx, mythid)
556    #endif
557    
558    #ifdef ALLOW_RUNOFF_CONTROL
559              ivartype = 40
560              write(weighttype(1:80),'(80a)') ' '
561              write(weighttype(1:80),'(a)') "wrunoff"
562              call ctrl_set_pack_xy(
563         &         cunit, ivartype, fname_runoff(ictrlgrad),
564         &         "maskCtrlC", weighttype, lxxadxx, mythid)
565  #endif  #endif
566    
567            close ( cunit )            close ( cunit )
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22