Parent Directory
| 
Revision Log
| 
Revision Graph
Changes encapsulated by checkpoint43a-release1mods and chkpt44d_post
on the main trunk.
These are:
o added missing EXCLUDE_MONITOR flags
o changed "e" to "_d" in gmredi_slope_limit, gmredi_slope_psi
(incompatible typ in MIN/MAX expressions caused problems
on IBM SP3)
o in genmake added variable MAKEDEPEND
plus resetting for case SunOS
o added timer_stats.c routine for IBM SP3
o removed variables in dynamics
o real fresh water flux implemented with non-linear free-surface.
o few fix (mask in shap_s2, EmPmR in external_field_load,
USE_NATURAL_BCS in solve_for_P);
o add arguments myIter & myTime to S/R obcs_calc & solve_for_P
o merge of relevant stuff from the ecco-branch:
- genmake: removed $S64 overwrite for case SunOS
- pkg/exf: update and corrections for field swapping and obcs
- pkg/ecco: parameter lists for the_model_main, the_main_loop
harmonized between ECCO and MITgcm
- pkg/autodiff: added flow directives for obcs, mdsio_gl_slice
updated checkpointing_lev... lists for obcs
- model/src: minor changes in forward_step, plot_field
added directive for divided adjoint in the_main_loop
- pkg/mdsio: added mdsio_gl_slice
o check parameters & config (chkpt44a_pre,post)
o OBC and NonLin_FrSurf.
o fix bug in mom_vi_del2uv
o select when filters are applied ; add options to zonal_filter (data.zonfilt)
o gmredi: fix Pb in the adiabatic form ; add options (.e.g. Bolus advection)
o update AIM experiments (NCEP input files)
o improve and extend diagnostics (Monitor, TimeAve with NonLin-FrSurf)
o added some stuff for AD
These were merged with
cvs co -r release1 -P MITgcm
cd MITgcm
cvs update -kk
cvs update -j checkpoint43a-release1mods -j chkpt44d_post -d -P -kk
| 1 | C $Header$ |
| 2 | C $Name$ |
| 3 | |
| 4 | #include "CPP_OPTIONS.h" |
| 5 | |
| 6 | SUBROUTINE DEBUG_STATS_RS( |
| 7 | I myNr, arr, arrName, |
| 8 | I myThid ) |
| 9 | C /==========================================================\ |
| 10 | C | SUBROUTINE DEBUG_STATS_RS | |
| 11 | C | o Prints to STDOUT the bare statistics of global array | |
| 12 | C | "_RS arr" with label "arrName" | |
| 13 | C | o This is an exact copy of MON_PRINTSTATS_RS but with | |
| 14 | C | a different label at left of screen | |
| 15 | C |==========================================================| |
| 16 | C \==========================================================/ |
| 17 | IMPLICIT NONE |
| 18 | |
| 19 | C === Global data === |
| 20 | #include "SIZE.h" |
| 21 | #include "EEPARAMS.h" |
| 22 | |
| 23 | C === Routine arguments === |
| 24 | INTEGER myNr |
| 25 | _RS arr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,myNr,nSx,nSy) |
| 26 | CHARACTER*(*) arrName |
| 27 | INTEGER myThid |
| 28 | |
| 29 | C === Local variables ==== |
| 30 | _RL theMin |
| 31 | _RL theMax |
| 32 | _RL theMean |
| 33 | _RL theSD |
| 34 | |
| 35 | CALL DEBUG_FLD_STATS_RS( |
| 36 | I myNr, arr, |
| 37 | O theMin,theMax,theMean,theSD, |
| 38 | I myThid ) |
| 39 | |
| 40 | _BEGIN_MASTER( myThid ) |
| 41 | WRITE(*,'(A,A30,A,1PE22.14)') |
| 42 | & 'DEBUG_STATS_RS: ',arrName,' min=',theMin |
| 43 | WRITE(*,'(A,A30,A,1PE22.14)') |
| 44 | & 'DEBUG_STATS_RS: ',arrName,' max=',theMax |
| 45 | WRITE(*,'(A,A30,A,1PE22.14)') |
| 46 | & 'DEBUG_STATS_RS: ',arrName,' mean=',theMean |
| 47 | WRITE(*,'(A,A30,A,1PE22.14)') |
| 48 | & 'DEBUG_STATS_RS: ',arrName,' S.D.=',theSD |
| 49 | _END_MASTER( ) |
| 50 | |
| 51 | RETURN |
| 52 | END |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |