/[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.6 by heimbach, Thu Jul 28 13:51:36 2005 UTC revision 1.7 by heimbach, Thu Jul 28 19:51:58 2005 UTC
# Line 321  c                  function contribution Line 321  c                  function contribution
321       &                objf_atemp,       &                objf_atemp,
322       &                objf_aqh,       &                objf_aqh,
323       &                objf_precip,       &                objf_precip,
324         &                objf_swflux,
325       &                objf_uwind,       &                objf_uwind,
326       &                objf_vwind,       &                objf_vwind,
327       &                objf_obcsn,       &                objf_obcsn,
# Line 373  c                  function contribution Line 374  c                  function contribution
374        _RL  objf_atemp(nsx,nsy)        _RL  objf_atemp(nsx,nsy)
375        _RL  objf_aqh  (nsx,nsy)        _RL  objf_aqh  (nsx,nsy)
376        _RL  objf_precip(nsx,nsy)        _RL  objf_precip(nsx,nsy)
377          _RL  objf_swflux(nsx,nsy)
378        _RL  objf_uwind(nsx,nsy)        _RL  objf_uwind(nsx,nsy)
379        _RL  objf_vwind(nsx,nsy)        _RL  objf_vwind(nsx,nsy)
380        _RL  objf_obcsn(nsx,nsy)        _RL  objf_obcsn(nsx,nsy)
# Line 427  c                  function contribution Line 429  c                  function contribution
429       &                num_atemp,       &                num_atemp,
430       &                num_aqh,       &                num_aqh,
431       &                num_precip,       &                num_precip,
432         &                num_swflux,
433       &                num_uwind,       &                num_uwind,
434       &                num_vwind,       &                num_vwind,
435       &                num_obcsn,       &                num_obcsn,
# Line 479  c                  function contribution Line 482  c                  function contribution
482        _RL  num_atemp(nsx,nsy)        _RL  num_atemp(nsx,nsy)
483        _RL  num_aqh  (nsx,nsy)        _RL  num_aqh  (nsx,nsy)
484        _RL  num_precip(nsx,nsy)        _RL  num_precip(nsx,nsy)
485          _RL  num_swflux(nsx,nsy)
486        _RL  num_uwind(nsx,nsy)        _RL  num_uwind(nsx,nsy)
487        _RL  num_vwind(nsx,nsy)        _RL  num_vwind(nsx,nsy)
488        _RL  num_obcsn(nsx,nsy)        _RL  num_obcsn(nsx,nsy)
# Line 525  c                  function contribution Line 529  c                  function contribution
529       &                    mult_atemp,       &                    mult_atemp,
530       &                    mult_aqh,       &                    mult_aqh,
531       &                    mult_precip,       &                    mult_precip,
532         &                    mult_swflux,
533       &                    mult_uwind,       &                    mult_uwind,
534       &                    mult_vwind,       &                    mult_vwind,
535       &                    mult_obcsn,       &                    mult_obcsn,
# Line 569  c                  function contribution Line 574  c                  function contribution
574        _RL  mult_atemp        _RL  mult_atemp
575        _RL  mult_aqh        _RL  mult_aqh
576        _RL  mult_precip        _RL  mult_precip
577          _RL  mult_swflux
578        _RL  mult_uwind        _RL  mult_uwind
579        _RL  mult_vwind        _RL  mult_vwind
580        _RL  mult_obcsn        _RL  mult_obcsn
# Line 647  c     velerrfile            - representa Line 653  c     velerrfile            - representa
653       &                atemp_errfile,       &                atemp_errfile,
654       &                aqh_errfile,       &                aqh_errfile,
655       &                precip_errfile,       &                precip_errfile,
656         &                swflux_errfile,
657       &                uwind_errfile,       &                uwind_errfile,
658       &                vwind_errfile       &                vwind_errfile
659        character*(MAX_LEN_FNAM) hflux_errfile        character*(MAX_LEN_FNAM) hflux_errfile
# Line 674  c     velerrfile            - representa Line 681  c     velerrfile            - representa
681        character*(MAX_LEN_FNAM) atemp_errfile        character*(MAX_LEN_FNAM) atemp_errfile
682        character*(MAX_LEN_FNAM) aqh_errfile        character*(MAX_LEN_FNAM) aqh_errfile
683        character*(MAX_LEN_FNAM) precip_errfile        character*(MAX_LEN_FNAM) precip_errfile
684          character*(MAX_LEN_FNAM) swflux_errfile
685        character*(MAX_LEN_FNAM) uwind_errfile        character*(MAX_LEN_FNAM) uwind_errfile
686        character*(MAX_LEN_FNAM) vwind_errfile        character*(MAX_LEN_FNAM) vwind_errfile
687    
# Line 706  c     wvdrift    - weight for mean merid Line 714  c     wvdrift    - weight for mean merid
714       &                      frame,       &                      frame,
715       &                      cosphi,       &                      cosphi,
716       &                      whflux,wsflux,wtauu,wtauv,       &                      whflux,wsflux,wtauu,wtauv,
717       &                      watemp,waqh,wprecip,wuwind,wvwind,       &                      watemp,waqh,wprecip,wswflux,wuwind,wvwind,
718       &                      wscatx,wscaty,       &                      wscatx,wscaty,
719       &                      wtheta,wtheta2,wthetaLev,       &                      wtheta,wtheta2,wthetaLev,
720       &                      wsalt,wsalt2,wsaltLev,       &                      wsalt,wsalt2,wsaltLev,
# Line 736  c     wvdrift    - weight for mean merid Line 744  c     wvdrift    - weight for mean merid
744        _RL watemp  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL watemp  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
745        _RL waqh    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL waqh    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
746        _RL wprecip (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wprecip (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
747          _RL wswflux (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
748        _RL wuwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wuwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
749        _RL wvwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wvwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
750        _RL wtheta  (                            nr,nsx,nsy)        _RL wtheta  (                            nr,nsx,nsy)
# Line 759  c     wvdrift    - weight for mean merid Line 768  c     wvdrift    - weight for mean merid
768        _RL wbaro        _RL wbaro
769    
770        common /ecco_cost_weights_0_r/        common /ecco_cost_weights_0_r/
771       &                      whflux0, wsflux0, wtau0,       &        whflux0, wsflux0, wtau0,
772       &                      watemp0, waqh0, wprecip0, wwind0       &        watemp0, waqh0, wprecip0, wswflux0, wwind0
773        _RL whflux0        _RL whflux0
774        _RL wsflux0        _RL wsflux0
775        _RL wtau0        _RL wtau0
776        _RL watemp0        _RL watemp0
777        _RL waqh0        _RL waqh0
778        _RL wprecip0        _RL wprecip0
779          _RL wswflux0
780        _RL wwind0        _RL wwind0
781                                                                                                    
782        common /ecco_cost_weights_2_r/        common /ecco_cost_weights_2_r/
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22