Parent Directory | Revision Log | Revision Graph
Merging from release1_p8 branch: o New package: pkg/seaice Sea ice model by D. Menemenlis (JPL) and Jinlun Zhang (Seattle). The sea-ice code is based on Hibler (1979-1980). Two sea-ice dynamic solvers, ADI and LSR, are included. In addition to computing prognostic sea-ice variables and diagnosing the forcing/external data fields that drive the ocean model, SEAICE_MODEL also sets theta to the freezing point under sea-ice. The implied surface heat flux is then stored in variable surfaceTendencyTice, which is needed by KPP package (kpp_calc.F and kpp_transport_t.F) to diagnose surface buoyancy fluxes and for the non-local transport term. Because this call precedes model thermodynamics, temperature under sea-ice may not be "exactly" at the freezing point by the time theta is dumped or time-averaged.
1 | C $Header: |
2 | |
3 | #include "SEAICE_OPTIONS.h" |
4 | |
5 | SUBROUTINE SEAICE_CHECK( myThid ) |
6 | C /==========================================================\ |
7 | C | SUBROUTINE SEAICE_CHECK | |
8 | C | o Validate basic package setup and inter-package | |
9 | C | dependencies. | |
10 | C \==========================================================/ |
11 | IMPLICIT NONE |
12 | |
13 | C === Global variables === |
14 | #include "SIZE.h" |
15 | #include "EEPARAMS.h" |
16 | #include "PARAMS.h" |
17 | |
18 | C === Routine arguments === |
19 | C myThid - Number of this instance of SEAICE_CHECK |
20 | INTEGER myThid |
21 | |
22 | #ifdef ALLOW_SEAICE |
23 | |
24 | C === Local variables === |
25 | C msgBuf - Informational/error meesage buffer |
26 | CHARACTER*(MAX_LEN_MBUF) msgBuf |
27 | |
28 | WRITE(msgBuf,'(A)') 'SEAICE_CHECK: #define ALLOW_SEAICE' |
29 | CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
30 | & SQUEEZE_RIGHT , myThid ) |
31 | |
32 | #endif ALLOW_SEAICE |
33 | |
34 | return |
35 | end |
ViewVC Help | |
Powered by ViewVC 1.1.22 |