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 | heimbach | 1.1.4.1 | C $Header$ |
| 2 | C $Name$ | ||
| 3 | adcroft | 1.1 | |
| 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 | heimbach | 1.1.4.1 | CALL DEBUG_FLD_STATS_RS( |
| 36 | adcroft | 1.1 | 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 |