Parent Directory | Revision Log | Revision Graph
Merging from release1_p12: o Modifications for using pkg/exf with pkg/seaice - improved description of the various forcing configurations - added basic radiation bulk formulae to pkg/exf - units/sign fix for evap computation in exf_getffields.F - updated verification/global_with_exf/results/output.txt o Added pkg/sbo for computing IERS Special Bureau for the Oceans (SBO) core products, including oceanic mass, center-of-mass, angular, and bottom pressure (see pkg/sbo/README.sbo). o Lower bound for viscosity/diffusivity in pkg/kpp/kpp_routines.F to avoid negative values in shallow regions. - updated verification/natl_box/results/output.txt - updated verification/lab_sea/results/output.txt o MPI gather, scatter: eesupp/src/gather_2d.F and scatter_2d.F o Added useSingleCpuIO option (see PARAMS.h). o Updated useSingleCpuIO option in mdsio_writefield.F to work with multi-field files, e.g., for single-file pickup. o pkg/seaice: - bug fix in growth.F: QNET for no shortwave case - added HeffFile for specifying initial sea-ice thickness - changed SEAICE_EXTERNAL_FLUXES wind stress implementation o Added missing /* */ to CPP comments in pkg/seaice, pkg/exf, kpp_transport_t.F, forward_step.F, and the_main_loop.F o pkg/seaice: - adjoint-friendly modifications - added a SEAICE_WRITE_PICKUP at end of the_model_main.F
1 | C $Header: |
2 | |
3 | #ifdef ALLOW_SEAICE |
4 | |
5 | C /==========================================================\ |
6 | C | SEAICE_DIAGS.h | |
7 | C | o Header for SEAICE diagnostic output | |
8 | C \==========================================================/ |
9 | |
10 | #ifdef ALLOW_TIMEAVE |
11 | |
12 | C Keep track of time |
13 | _RL SEAICE_TimeAve(Nr,nSx,nSy) |
14 | COMMON /SEAICE_TAVE/ SEAICE_TimeAve |
15 | |
16 | C Storage arrays for time-averages |
17 | _RL FUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
18 | _RL FVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
19 | _RL EmPmRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
20 | _RL QNETtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
21 | _RL QSWtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
22 | _RL UICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
23 | _RL VICEtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
24 | _RL HEFFtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
25 | _RL AREAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,1,nSx,nSy) |
26 | COMMON /SEAICE_TAVE_DIAGS/ |
27 | & FUtave, FVtave, EmPmRtave, QNETtave, QSWtave, |
28 | & UICEtave, VICEtave, HEFFtave, AREAtave |
29 | |
30 | #endif /* ALLOW_TIMEAVE */ |
31 | |
32 | #endif /* ALLOW_SEAICE */ |
ViewVC Help | |
Powered by ViewVC 1.1.22 |