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 | heimbach | 1.2 | 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 | dimitri | 1.3 | #endif /* ALLOW_SEAICE */ |
ViewVC Help | |
Powered by ViewVC 1.1.22 |