21 |
c monrec - number of averaged theta and salinity records. |
c monrec - number of averaged theta and salinity records. |
22 |
|
|
23 |
common /average_i/ |
common /average_i/ |
24 |
& sum1day,sum1mon, |
& sum1day,sum1mon,sum1year, |
25 |
& dayrec,monrec |
& dayrec,monrec,yearrec |
26 |
integer sum1day |
integer sum1day |
27 |
integer sum1mon |
integer sum1mon |
28 |
|
integer sum1year |
29 |
integer dayrec |
integer dayrec |
30 |
integer monrec |
integer monrec |
31 |
|
integer yearrec |
32 |
|
|
33 |
|
|
34 |
c Averaged Fields: |
c Averaged Fields: |
256 |
c objf_sfluxmm - Global time-mean Salt flux contribution. |
c objf_sfluxmm - Global time-mean Salt flux contribution. |
257 |
c objf_hmean - Mean sea surface height contribution. |
c objf_hmean - Mean sea surface height contribution. |
258 |
c objf_h - Residual sea surface height contribution. |
c objf_h - Residual sea surface height contribution. |
259 |
|
c objf_tp - Residual sea surface height contribution from T/P |
260 |
|
c objf_ers - Residual sea surface height contribution from T/P |
261 |
|
c objf_gfo - Residual sea surface height contribution from T/P |
262 |
c objf_temp - Temperature contribution. |
c objf_temp - Temperature contribution. |
263 |
c objf_salt - Salinity contribution. |
c objf_salt - Salinity contribution. |
264 |
c objf_temp0 - Initial conditions Temperature contribution. |
c objf_temp0 - Initial conditions Temperature contribution. |
302 |
& objf_tauvsmoo, |
& objf_tauvsmoo, |
303 |
& objf_hmean, |
& objf_hmean, |
304 |
& objf_h, |
& objf_h, |
305 |
|
& objf_tp, |
306 |
|
& objf_ers, |
307 |
|
& objf_gfo, |
308 |
& objf_temp, |
& objf_temp, |
309 |
& objf_salt, |
& objf_salt, |
310 |
& objf_temp0, |
& objf_temp0, |
378 |
_RL objf_tauvsmoo (nsx,nsy) |
_RL objf_tauvsmoo (nsx,nsy) |
379 |
_RL objf_hmean |
_RL objf_hmean |
380 |
_RL objf_h (nsx,nsy) |
_RL objf_h (nsx,nsy) |
381 |
|
_RL objf_tp (nsx,nsy) |
382 |
|
_RL objf_ers (nsx,nsy) |
383 |
|
_RL objf_gfo (nsx,nsy) |
384 |
_RL objf_temp (nsx,nsy) |
_RL objf_temp (nsx,nsy) |
385 |
_RL objf_salt (nsx,nsy) |
_RL objf_salt (nsx,nsy) |
386 |
_RL objf_temp0(nsx,nsy) |
_RL objf_temp0(nsx,nsy) |
452 |
& num_tauvm, |
& num_tauvm, |
453 |
& num_hmean, |
& num_hmean, |
454 |
& num_h, |
& num_h, |
455 |
|
& num_tp, |
456 |
|
& num_ers, |
457 |
|
& num_gfo, |
458 |
& num_temp, |
& num_temp, |
459 |
& num_salt, |
& num_salt, |
460 |
& num_temp0, |
& num_temp0, |
516 |
_RL num_tauvm (nsx,nsy) |
_RL num_tauvm (nsx,nsy) |
517 |
_RL num_hmean |
_RL num_hmean |
518 |
_RL num_h (nsx,nsy) |
_RL num_h (nsx,nsy) |
519 |
|
_RL num_tp (nsx,nsy) |
520 |
|
_RL num_ers (nsx,nsy) |
521 |
|
_RL num_gfo (nsx,nsy) |
522 |
_RL num_temp (nsx,nsy) |
_RL num_temp (nsx,nsy) |
523 |
_RL num_salt (nsx,nsy) |
_RL num_salt (nsx,nsy) |
524 |
_RL num_temp0(nsx,nsy) |
_RL num_temp0(nsx,nsy) |
577 |
& mult_tauv, |
& mult_tauv, |
578 |
& mult_hmean, |
& mult_hmean, |
579 |
& mult_h, |
& mult_h, |
580 |
|
& mult_tp, |
581 |
|
& mult_ers, |
582 |
|
& mult_gfo, |
583 |
& mult_temp, |
& mult_temp, |
584 |
& mult_salt, |
& mult_salt, |
585 |
& mult_temp0, |
& mult_temp0, |
628 |
_RL mult_tauv |
_RL mult_tauv |
629 |
_RL mult_hmean |
_RL mult_hmean |
630 |
_RL mult_h |
_RL mult_h |
631 |
|
_RL mult_tp |
632 |
|
_RL mult_ers |
633 |
|
_RL mult_gfo |
634 |
_RL mult_temp |
_RL mult_temp |
635 |
_RL mult_salt |
_RL mult_salt |
636 |
_RL mult_temp0 |
_RL mult_temp0 |
675 |
c Record counters relevant for the cost function evaluation. |
c Record counters relevant for the cost function evaluation. |
676 |
c ========================================================== |
c ========================================================== |
677 |
c |
c |
678 |
c nmonsrec - number of monthly records that will be generated by |
c nyearsrec - number of yearly records that will be generated by |
679 |
c the current model integration. |
c the current model integration. |
680 |
c ndaysrec - number of daily records that will be generated by |
c nmonsrec - number of monthly records that will be generated by |
681 |
c the current model integration. |
c the current model integration. |
682 |
|
c ndaysrec - number of daily records that will be generated by |
683 |
|
c the current model integration. |
684 |
|
|
685 |
common /ecco_cost_i/ |
common /ecco_cost_i/ |
686 |
|
& nyearsrec, |
687 |
& nmonsrec, |
& nmonsrec, |
688 |
& ndaysrec, |
& ndaysrec, |
689 |
& nnztbar, |
& nnztbar, |
690 |
& nnzsbar |
& nnzsbar |
691 |
|
integer nyearsrec |
692 |
integer nmonsrec |
integer nmonsrec |
693 |
integer ndaysrec |
integer ndaysrec |
694 |
integer nnztbar |
integer nnztbar |