/[MITgcm]/MITgcm/pkg/ecco/ecco_cost.h
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco_cost.h

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

revision 1.4 by heimbach, Mon Mar 28 23:49:49 2005 UTC revision 1.8 by heimbach, Fri Jul 29 05:19:40 2005 UTC
# Line 320  c                  function contribution Line 320  c                  function contribution
320       &                objf_scatym,       &                objf_scatym,
321       &                objf_atemp,       &                objf_atemp,
322       &                objf_aqh,       &                objf_aqh,
323         &                objf_precip,
324         &                objf_swflux,
325       &                objf_uwind,       &                objf_uwind,
326       &                objf_vwind,       &                objf_vwind,
327         &                objf_atempm,
328         &                objf_aqhm,
329         &                objf_precipm,
330         &                objf_swfluxm,
331         &                objf_uwindm,
332         &                objf_vwindm,
333       &                objf_obcsn,       &                objf_obcsn,
334       &                objf_obcss,       &                objf_obcss,
335       &                objf_obcsw,       &                objf_obcsw,
# Line 371  c                  function contribution Line 379  c                  function contribution
379        _RL  objf_scatym(nsx,nsy)        _RL  objf_scatym(nsx,nsy)
380        _RL  objf_atemp(nsx,nsy)        _RL  objf_atemp(nsx,nsy)
381        _RL  objf_aqh  (nsx,nsy)        _RL  objf_aqh  (nsx,nsy)
382          _RL  objf_precip(nsx,nsy)
383          _RL  objf_swflux(nsx,nsy)
384        _RL  objf_uwind(nsx,nsy)        _RL  objf_uwind(nsx,nsy)
385        _RL  objf_vwind(nsx,nsy)        _RL  objf_vwind(nsx,nsy)
386          _RL  objf_atempm(nsx,nsy)
387          _RL  objf_aqhm  (nsx,nsy)
388          _RL  objf_precipm(nsx,nsy)
389          _RL  objf_swfluxm(nsx,nsy)
390          _RL  objf_uwindm(nsx,nsy)
391          _RL  objf_vwindm(nsx,nsy)
392        _RL  objf_obcsn(nsx,nsy)        _RL  objf_obcsn(nsx,nsy)
393        _RL  objf_obcss(nsx,nsy)        _RL  objf_obcss(nsx,nsy)
394        _RL  objf_obcsw(nsx,nsy)        _RL  objf_obcsw(nsx,nsy)
# Line 424  c                  function contribution Line 440  c                  function contribution
440       &                num_scatym,       &                num_scatym,
441       &                num_atemp,       &                num_atemp,
442       &                num_aqh,       &                num_aqh,
443         &                num_precip,
444         &                num_swflux,
445       &                num_uwind,       &                num_uwind,
446       &                num_vwind,       &                num_vwind,
447         &                num_atempm,
448         &                num_aqhm,
449         &                num_precipm,
450         &                num_swfluxm,
451         &                num_uwindm,
452         &                num_vwindm,
453       &                num_obcsn,       &                num_obcsn,
454       &                num_obcss,       &                num_obcss,
455       &                num_obcsw,       &                num_obcsw,
# Line 475  c                  function contribution Line 499  c                  function contribution
499        _RL  num_scatym(nsx,nsy)        _RL  num_scatym(nsx,nsy)
500        _RL  num_atemp(nsx,nsy)        _RL  num_atemp(nsx,nsy)
501        _RL  num_aqh  (nsx,nsy)        _RL  num_aqh  (nsx,nsy)
502          _RL  num_precip(nsx,nsy)
503          _RL  num_swflux(nsx,nsy)
504        _RL  num_uwind(nsx,nsy)        _RL  num_uwind(nsx,nsy)
505        _RL  num_vwind(nsx,nsy)        _RL  num_vwind(nsx,nsy)
506          _RL  num_atempm(nsx,nsy)
507          _RL  num_aqhm  (nsx,nsy)
508          _RL  num_precipm(nsx,nsy)
509          _RL  num_swfluxm(nsx,nsy)
510          _RL  num_uwindm(nsx,nsy)
511          _RL  num_vwindm(nsx,nsy)
512        _RL  num_obcsn(nsx,nsy)        _RL  num_obcsn(nsx,nsy)
513        _RL  num_obcss(nsx,nsy)        _RL  num_obcss(nsx,nsy)
514        _RL  num_obcsw(nsx,nsy)        _RL  num_obcsw(nsx,nsy)
# Line 520  c                  function contribution Line 552  c                  function contribution
552       &                    mult_scaty,       &                    mult_scaty,
553       &                    mult_atemp,       &                    mult_atemp,
554       &                    mult_aqh,       &                    mult_aqh,
555         &                    mult_precip,
556         &                    mult_swflux,
557       &                    mult_uwind,       &                    mult_uwind,
558       &                    mult_vwind,       &                    mult_vwind,
559       &                    mult_obcsn,       &                    mult_obcsn,
# Line 563  c                  function contribution Line 597  c                  function contribution
597        _RL  mult_scaty        _RL  mult_scaty
598        _RL  mult_atemp        _RL  mult_atemp
599        _RL  mult_aqh        _RL  mult_aqh
600          _RL  mult_precip
601          _RL  mult_swflux
602        _RL  mult_uwind        _RL  mult_uwind
603        _RL  mult_vwind        _RL  mult_vwind
604        _RL  mult_obcsn        _RL  mult_obcsn
# Line 640  c     velerrfile            - representa Line 676  c     velerrfile            - representa
676       &                velerrfile,       &                velerrfile,
677       &                atemp_errfile,       &                atemp_errfile,
678       &                aqh_errfile,       &                aqh_errfile,
679         &                precip_errfile,
680         &                swflux_errfile,
681       &                uwind_errfile,       &                uwind_errfile,
682       &                vwind_errfile       &                vwind_errfile
683        character*(MAX_LEN_FNAM) hflux_errfile        character*(MAX_LEN_FNAM) hflux_errfile
# Line 666  c     velerrfile            - representa Line 704  c     velerrfile            - representa
704        character*(MAX_LEN_FNAM) velerrfile        character*(MAX_LEN_FNAM) velerrfile
705        character*(MAX_LEN_FNAM) atemp_errfile        character*(MAX_LEN_FNAM) atemp_errfile
706        character*(MAX_LEN_FNAM) aqh_errfile        character*(MAX_LEN_FNAM) aqh_errfile
707          character*(MAX_LEN_FNAM) precip_errfile
708          character*(MAX_LEN_FNAM) swflux_errfile
709        character*(MAX_LEN_FNAM) uwind_errfile        character*(MAX_LEN_FNAM) uwind_errfile
710        character*(MAX_LEN_FNAM) vwind_errfile        character*(MAX_LEN_FNAM) vwind_errfile
711    
# Line 698  c     wvdrift    - weight for mean merid Line 738  c     wvdrift    - weight for mean merid
738       &                      frame,       &                      frame,
739       &                      cosphi,       &                      cosphi,
740       &                      whflux,wsflux,wtauu,wtauv,       &                      whflux,wsflux,wtauu,wtauv,
741       &                      watemp,waqh,wuwind,wvwind,       &                      watemp,waqh,wprecip,wswflux,wuwind,wvwind,
742       &                      wscatx,wscaty,       &                      wscatx,wscaty,
743       &                      wtheta,wtheta2,wthetaLev,       &                      wtheta,wtheta2,wthetaLev,
744       &                      wsalt,wsalt2,wsaltLev,       &                      wsalt,wsalt2,wsaltLev,
# Line 727  c     wvdrift    - weight for mean merid Line 767  c     wvdrift    - weight for mean merid
767        _RL wscaty  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wscaty  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
768        _RL watemp  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL watemp  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
769        _RL waqh    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL waqh    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
770          _RL wprecip (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
771          _RL wswflux (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
772        _RL wuwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wuwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
773        _RL wvwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wvwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
774        _RL wtheta  (                            nr,nsx,nsy)        _RL wtheta  (                            nr,nsx,nsy)
# Line 749  c     wvdrift    - weight for mean merid Line 791  c     wvdrift    - weight for mean merid
791        _RL wcurrentLev (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL wcurrentLev (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
792        _RL wbaro        _RL wbaro
793    
794          common /ecco_cost_weights_0_r/
795         &        whflux0, wsflux0, wtau0,
796         &        watemp0, waqh0, wprecip0, wswflux0, wwind0
797          _RL whflux0
798          _RL wsflux0
799          _RL wtau0
800          _RL watemp0
801          _RL waqh0
802          _RL wprecip0
803          _RL wswflux0
804          _RL wwind0
805    
806          common /ecco_cost_weights_mean_r/
807         &        wmean_hflux, wmean_sflux, wmean_tau,
808         &        wmean_atemp, wmean_aqh,
809         &        wmean_precip, wmean_swflux, wmean_wind
810          _RL wmean_hflux
811          _RL wmean_sflux
812          _RL wmean_tau
813          _RL wmean_atemp
814          _RL wmean_aqh
815          _RL wmean_precip
816          _RL wmean_swflux
817          _RL wmean_wind
818                                                    
819          common /ecco_cost_weights_2_r/
820         &                      whflux2,wsflux2,wtauu2,wtauv2
821          _RL whflux2 (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
822          _RL wsflux2 (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
823          _RL wtauu2  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
824          _RL wtauv2  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
825                                                    
826                          
827    
828  #if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) || \  #if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) || \
829       defined (ALLOW_OBCSN_CONTROL))       defined (ALLOW_OBCSN_CONTROL))
830        common /ecco_cost_weights_obcsn/        common /ecco_cost_weights_obcsn/
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22