/[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.5 by heimbach, Fri May 27 22:10:27 2005 UTC revision 1.6 by heimbach, Thu Jul 28 13:51:36 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_uwind,       &                objf_uwind,
325       &                objf_vwind,       &                objf_vwind,
326       &                objf_obcsn,       &                objf_obcsn,
# Line 371  c                  function contribution Line 372  c                  function contribution
372        _RL  objf_scatym(nsx,nsy)        _RL  objf_scatym(nsx,nsy)
373        _RL  objf_atemp(nsx,nsy)        _RL  objf_atemp(nsx,nsy)
374        _RL  objf_aqh  (nsx,nsy)        _RL  objf_aqh  (nsx,nsy)
375          _RL  objf_precip(nsx,nsy)
376        _RL  objf_uwind(nsx,nsy)        _RL  objf_uwind(nsx,nsy)
377        _RL  objf_vwind(nsx,nsy)        _RL  objf_vwind(nsx,nsy)
378        _RL  objf_obcsn(nsx,nsy)        _RL  objf_obcsn(nsx,nsy)
# Line 424  c                  function contribution Line 426  c                  function contribution
426       &                num_scatym,       &                num_scatym,
427       &                num_atemp,       &                num_atemp,
428       &                num_aqh,       &                num_aqh,
429         &                num_precip,
430       &                num_uwind,       &                num_uwind,
431       &                num_vwind,       &                num_vwind,
432       &                num_obcsn,       &                num_obcsn,
# Line 475  c                  function contribution Line 478  c                  function contribution
478        _RL  num_scatym(nsx,nsy)        _RL  num_scatym(nsx,nsy)
479        _RL  num_atemp(nsx,nsy)        _RL  num_atemp(nsx,nsy)
480        _RL  num_aqh  (nsx,nsy)        _RL  num_aqh  (nsx,nsy)
481          _RL  num_precip(nsx,nsy)
482        _RL  num_uwind(nsx,nsy)        _RL  num_uwind(nsx,nsy)
483        _RL  num_vwind(nsx,nsy)        _RL  num_vwind(nsx,nsy)
484        _RL  num_obcsn(nsx,nsy)        _RL  num_obcsn(nsx,nsy)
# Line 520  c                  function contribution Line 524  c                  function contribution
524       &                    mult_scaty,       &                    mult_scaty,
525       &                    mult_atemp,       &                    mult_atemp,
526       &                    mult_aqh,       &                    mult_aqh,
527         &                    mult_precip,
528       &                    mult_uwind,       &                    mult_uwind,
529       &                    mult_vwind,       &                    mult_vwind,
530       &                    mult_obcsn,       &                    mult_obcsn,
# Line 563  c                  function contribution Line 568  c                  function contribution
568        _RL  mult_scaty        _RL  mult_scaty
569        _RL  mult_atemp        _RL  mult_atemp
570        _RL  mult_aqh        _RL  mult_aqh
571          _RL  mult_precip
572        _RL  mult_uwind        _RL  mult_uwind
573        _RL  mult_vwind        _RL  mult_vwind
574        _RL  mult_obcsn        _RL  mult_obcsn
# Line 640  c     velerrfile            - representa Line 646  c     velerrfile            - representa
646       &                velerrfile,       &                velerrfile,
647       &                atemp_errfile,       &                atemp_errfile,
648       &                aqh_errfile,       &                aqh_errfile,
649         &                precip_errfile,
650       &                uwind_errfile,       &                uwind_errfile,
651       &                vwind_errfile       &                vwind_errfile
652        character*(MAX_LEN_FNAM) hflux_errfile        character*(MAX_LEN_FNAM) hflux_errfile
# Line 666  c     velerrfile            - representa Line 673  c     velerrfile            - representa
673        character*(MAX_LEN_FNAM) velerrfile        character*(MAX_LEN_FNAM) velerrfile
674        character*(MAX_LEN_FNAM) atemp_errfile        character*(MAX_LEN_FNAM) atemp_errfile
675        character*(MAX_LEN_FNAM) aqh_errfile        character*(MAX_LEN_FNAM) aqh_errfile
676          character*(MAX_LEN_FNAM) precip_errfile
677        character*(MAX_LEN_FNAM) uwind_errfile        character*(MAX_LEN_FNAM) uwind_errfile
678        character*(MAX_LEN_FNAM) vwind_errfile        character*(MAX_LEN_FNAM) vwind_errfile
679    
# Line 698  c     wvdrift    - weight for mean merid Line 706  c     wvdrift    - weight for mean merid
706       &                      frame,       &                      frame,
707       &                      cosphi,       &                      cosphi,
708       &                      whflux,wsflux,wtauu,wtauv,       &                      whflux,wsflux,wtauu,wtauv,
709       &                      watemp,waqh,wuwind,wvwind,       &                      watemp,waqh,wprecip,wuwind,wvwind,
710       &                      wscatx,wscaty,       &                      wscatx,wscaty,
711       &                      wtheta,wtheta2,wthetaLev,       &                      wtheta,wtheta2,wthetaLev,
712       &                      wsalt,wsalt2,wsaltLev,       &                      wsalt,wsalt2,wsaltLev,
# Line 727  c     wvdrift    - weight for mean merid Line 735  c     wvdrift    - weight for mean merid
735        _RL wscaty  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wscaty  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
736        _RL watemp  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL watemp  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
737        _RL waqh    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL waqh    (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
738          _RL wprecip (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
739        _RL wuwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wuwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
740        _RL wvwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL wvwind  (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
741        _RL wtheta  (                            nr,nsx,nsy)        _RL wtheta  (                            nr,nsx,nsy)
# Line 749  c     wvdrift    - weight for mean merid Line 758  c     wvdrift    - weight for mean merid
758        _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)
759        _RL wbaro        _RL wbaro
760    
761          common /ecco_cost_weights_0_r/
762         &                      whflux0, wsflux0, wtau0,
763         &                      watemp0, waqh0, wprecip0, wwind0
764          _RL whflux0
765          _RL wsflux0
766          _RL wtau0
767          _RL watemp0
768          _RL waqh0
769          _RL wprecip0
770          _RL wwind0
771                                                    
772        common /ecco_cost_weights_2_r/        common /ecco_cost_weights_2_r/
773       &                      whflux2,wsflux2,wtauu2,wtauv2       &                      whflux2,wsflux2,wtauu2,wtauv2
774        _RL whflux2 (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)        _RL whflux2 (1-olx:snx+olx,1-oly:sny+oly,   nsx,nsy)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22