/[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.9 by heimbach, Sat Aug 6 11:02:01 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_swdown,
326       &                objf_uwind,       &                objf_uwind,
327       &                objf_vwind,       &                objf_vwind,
328         &                objf_atempm,
329         &                objf_aqhm,
330         &                objf_precipm,
331         &                objf_swfluxm,
332         &                objf_swdownm,
333         &                objf_uwindm,
334         &                objf_vwindm,
335       &                objf_obcsn,       &                objf_obcsn,
336       &                objf_obcss,       &                objf_obcss,
337       &                objf_obcsw,       &                objf_obcsw,
# Line 330  c                  function contribution Line 340  c                  function contribution
340       &                objf_curmtr,       &                objf_curmtr,
341       &                objf_ageos,       &                objf_ageos,
342       &                objf_ice,       &                objf_ice,
343         &                objf_kapgm,
344       &                objf_diffkr,       &                objf_diffkr,
345       &                objf_theta_ini_fin,       &                objf_theta_ini_fin,
346       &                objf_salt_ini_fin,       &                objf_salt_ini_fin,
# Line 371  c                  function contribution Line 382  c                  function contribution
382        _RL  objf_scatym(nsx,nsy)        _RL  objf_scatym(nsx,nsy)
383        _RL  objf_atemp(nsx,nsy)        _RL  objf_atemp(nsx,nsy)
384        _RL  objf_aqh  (nsx,nsy)        _RL  objf_aqh  (nsx,nsy)
385          _RL  objf_precip(nsx,nsy)
386          _RL  objf_swflux(nsx,nsy)
387          _RL  objf_swdown(nsx,nsy)
388        _RL  objf_uwind(nsx,nsy)        _RL  objf_uwind(nsx,nsy)
389        _RL  objf_vwind(nsx,nsy)        _RL  objf_vwind(nsx,nsy)
390          _RL  objf_atempm(nsx,nsy)
391          _RL  objf_aqhm  (nsx,nsy)
392          _RL  objf_precipm(nsx,nsy)
393          _RL  objf_swfluxm(nsx,nsy)
394          _RL  objf_swdownm(nsx,nsy)
395          _RL  objf_uwindm(nsx,nsy)
396          _RL  objf_vwindm(nsx,nsy)
397        _RL  objf_obcsn(nsx,nsy)        _RL  objf_obcsn(nsx,nsy)
398        _RL  objf_obcss(nsx,nsy)        _RL  objf_obcss(nsx,nsy)
399        _RL  objf_obcsw(nsx,nsy)        _RL  objf_obcsw(nsx,nsy)
# Line 424  c                  function contribution Line 445  c                  function contribution
445       &                num_scatym,       &                num_scatym,
446       &                num_atemp,       &                num_atemp,
447       &                num_aqh,       &                num_aqh,
448         &                num_precip,
449         &                num_swflux,
450         &                num_swdown,
451       &                num_uwind,       &                num_uwind,
452       &                num_vwind,       &                num_vwind,
453         &                num_atempm,
454         &                num_aqhm,
455         &                num_precipm,
456         &                num_swfluxm,
457         &                num_swdownm,
458         &                num_uwindm,
459         &                num_vwindm,
460       &                num_obcsn,       &                num_obcsn,
461       &                num_obcss,       &                num_obcss,
462       &                num_obcsw,       &                num_obcsw,
# Line 434  c                  function contribution Line 465  c                  function contribution
465       &                num_curmtr,       &                num_curmtr,
466       &                num_ageos,       &                num_ageos,
467       &                num_ice,       &                num_ice,
468         &                num_kapgm,
469       &                num_diffkr,       &                num_diffkr,
470       &                num_theta_ini_fin,       &                num_theta_ini_fin,
471       &                num_salt_ini_fin,       &                num_salt_ini_fin,
# Line 475  c                  function contribution Line 507  c                  function contribution
507        _RL  num_scatym(nsx,nsy)        _RL  num_scatym(nsx,nsy)
508        _RL  num_atemp(nsx,nsy)        _RL  num_atemp(nsx,nsy)
509        _RL  num_aqh  (nsx,nsy)        _RL  num_aqh  (nsx,nsy)
510          _RL  num_precip(nsx,nsy)
511          _RL  num_swflux(nsx,nsy)
512          _RL  num_swdown(nsx,nsy)
513        _RL  num_uwind(nsx,nsy)        _RL  num_uwind(nsx,nsy)
514        _RL  num_vwind(nsx,nsy)        _RL  num_vwind(nsx,nsy)
515          _RL  num_atempm(nsx,nsy)
516          _RL  num_aqhm  (nsx,nsy)
517          _RL  num_precipm(nsx,nsy)
518          _RL  num_swfluxm(nsx,nsy)
519          _RL  num_swdownm(nsx,nsy)
520          _RL  num_uwindm(nsx,nsy)
521          _RL  num_vwindm(nsx,nsy)
522        _RL  num_obcsn(nsx,nsy)        _RL  num_obcsn(nsx,nsy)
523        _RL  num_obcss(nsx,nsy)        _RL  num_obcss(nsx,nsy)
524        _RL  num_obcsw(nsx,nsy)        _RL  num_obcsw(nsx,nsy)
# Line 520  c                  function contribution Line 562  c                  function contribution
562       &                    mult_scaty,       &                    mult_scaty,
563       &                    mult_atemp,       &                    mult_atemp,
564       &                    mult_aqh,       &                    mult_aqh,
565         &                    mult_precip,
566         &                    mult_swflux,
567         &                    mult_swdown,
568       &                    mult_uwind,       &                    mult_uwind,
569       &                    mult_vwind,       &                    mult_vwind,
570       &                    mult_obcsn,       &                    mult_obcsn,
# Line 563  c                  function contribution Line 608  c                  function contribution
608        _RL  mult_scaty        _RL  mult_scaty
609        _RL  mult_atemp        _RL  mult_atemp
610        _RL  mult_aqh        _RL  mult_aqh
611          _RL  mult_precip
612          _RL  mult_swflux
613          _RL  mult_swdown
614        _RL  mult_uwind        _RL  mult_uwind
615        _RL  mult_vwind        _RL  mult_vwind
616        _RL  mult_obcsn        _RL  mult_obcsn
# Line 640  c     velerrfile            - representa Line 688  c     velerrfile            - representa
688       &                velerrfile,       &                velerrfile,
689       &                atemp_errfile,       &                atemp_errfile,
690       &                aqh_errfile,       &                aqh_errfile,
691         &                precip_errfile,
692         &                swflux_errfile,
693         &                swdown_errfile,
694       &                uwind_errfile,       &                uwind_errfile,
695       &                vwind_errfile       &                vwind_errfile
696        character*(MAX_LEN_FNAM) hflux_errfile        character*(MAX_LEN_FNAM) hflux_errfile
# Line 666  c     velerrfile            - representa Line 717  c     velerrfile            - representa
717        character*(MAX_LEN_FNAM) velerrfile        character*(MAX_LEN_FNAM) velerrfile
718        character*(MAX_LEN_FNAM) atemp_errfile        character*(MAX_LEN_FNAM) atemp_errfile
719        character*(MAX_LEN_FNAM) aqh_errfile        character*(MAX_LEN_FNAM) aqh_errfile
720          character*(MAX_LEN_FNAM) precip_errfile
721          character*(MAX_LEN_FNAM) swflux_errfile
722          character*(MAX_LEN_FNAM) swdown_errfile
723        character*(MAX_LEN_FNAM) uwind_errfile        character*(MAX_LEN_FNAM) uwind_errfile
724        character*(MAX_LEN_FNAM) vwind_errfile        character*(MAX_LEN_FNAM) vwind_errfile
725    
# Line 698  c     wvdrift    - weight for mean merid Line 752  c     wvdrift    - weight for mean merid
752       &                      frame,       &                      frame,
753       &                      cosphi,       &                      cosphi,
754       &                      whflux,wsflux,wtauu,wtauv,       &                      whflux,wsflux,wtauu,wtauv,
755       &                      watemp,waqh,wuwind,wvwind,       &                      watemp,waqh,wprecip,wswflux,wswdown,
756         &                      wuwind,wvwind,
757       &                      wscatx,wscaty,       &                      wscatx,wscaty,
758       &                      wtheta,wtheta2,wthetaLev,       &                      wtheta,wtheta2,wthetaLev,
759       &                      wsalt,wsalt2,wsaltLev,       &                      wsalt,wsalt2,wsaltLev,
# Line 727  c     wvdrift    - weight for mean merid Line 782  c     wvdrift    - weight for mean merid
782        _RL wscaty  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wscaty  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
783        _RL watemp  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL watemp  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
784        _RL waqh    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL waqh    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
785          _RL wprecip (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
786          _RL wswflux (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
787          _RL wswdown (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
788        _RL wuwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wuwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
789        _RL wvwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wvwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
790        _RL wtheta  (                            nr,nsx,nsy)        _RL wtheta  (                            nr,nsx,nsy)
# Line 749  c     wvdrift    - weight for mean merid Line 807  c     wvdrift    - weight for mean merid
807        _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)
808        _RL wbaro        _RL wbaro
809    
810          common /ecco_cost_weights_0_r/
811         &        whflux0, wsflux0, wtau0,
812         &        watemp0, waqh0, wprecip0, wswflux0, wswdown0, wwind0
813          _RL whflux0
814          _RL wsflux0
815          _RL wtau0
816          _RL watemp0
817          _RL waqh0
818          _RL wprecip0
819          _RL wswflux0
820          _RL wswdown0
821          _RL wwind0
822    
823          common /ecco_cost_weights_mean_r/
824         &        wmean_hflux, wmean_sflux, wmean_tau,
825         &        wmean_atemp, wmean_aqh,
826         &        wmean_precip, wmean_swflux, wmean_swdown, wmean_wind
827          _RL wmean_hflux
828          _RL wmean_sflux
829          _RL wmean_tau
830          _RL wmean_atemp
831          _RL wmean_aqh
832          _RL wmean_precip
833          _RL wmean_swflux
834          _RL wmean_swdown
835          _RL wmean_wind
836                                                    
837          common /ecco_cost_weights_2_r/
838         &                      whflux2,wsflux2,wtauu2,wtauv2
839          _RL whflux2 (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
840          _RL wsflux2 (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
841          _RL wtauu2  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
842          _RL wtauv2  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
843                                                    
844                          
845    
846  #if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) || \  #if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) || \
847       defined (ALLOW_OBCSN_CONTROL))       defined (ALLOW_OBCSN_CONTROL))
848        common /ecco_cost_weights_obcsn/        common /ecco_cost_weights_obcsn/
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22