3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
5 |
|
|
6 |
CStartOfInterface |
CBOP |
7 |
|
C !ROUTINE: INI_SALT |
8 |
|
C !INTERFACE: |
9 |
SUBROUTINE INI_SALT ( myThid ) |
SUBROUTINE INI_SALT ( myThid ) |
10 |
C /==========================================================\ |
C !DESCRIPTION: \bv |
11 |
C | SUBROUTINE INI_SALT | |
C *==========================================================* |
12 |
C | o Set model initial salinity field. | |
C | SUBROUTINE INI_SALT |
13 |
C |==========================================================| |
C | o Set model initial salinity field. |
14 |
C | There are several options for setting the initial | |
C *==========================================================* |
15 |
C | temperature file | |
C | There are several options for setting the initial |
16 |
C | 1. Inline code | |
C | temperature file |
17 |
C | 2. Vertical profile ( uniform S in X and Y ) | |
C | 1. Inline code |
18 |
C | 3. Three-dimensional data from a file. For example from | |
C | 2. Vertical profile ( uniform S in X and Y ) |
19 |
C | Levitus or from a checkpoint file from a previous | |
C | 3. Three-dimensional data from a file. For example from |
20 |
C | integration. | |
C | Levitus or from a checkpoint file from a previous |
21 |
C | In addition to setting the salinity field we also | |
C | integration. |
22 |
C | set the initial salinity tendency term here. | |
C | In addition to setting the salinity field we also |
23 |
C \==========================================================/ |
C | set the initial salinity tendency term here. |
24 |
IMPLICIT NONE |
C *==========================================================* |
25 |
|
C \ev |
26 |
|
|
27 |
|
C !USES: |
28 |
|
IMPLICIT NONE |
29 |
C === Global variables === |
C === Global variables === |
30 |
#include "SIZE.h" |
#include "SIZE.h" |
31 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
33 |
#include "GRID.h" |
#include "GRID.h" |
34 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
35 |
|
|
36 |
|
C !INPUT/OUTPUT PARAMETERS: |
37 |
C == Routine arguments == |
C == Routine arguments == |
38 |
C myThid - Number of this instance of INI_SALT |
C myThid - Number of this instance of INI_SALT |
39 |
INTEGER myThid |
INTEGER myThid |
|
CEndOfInterface |
|
40 |
|
|
41 |
|
C !LOCAL VARIABLES: |
42 |
C == Local variables == |
C == Local variables == |
43 |
C bi,bj - Loop counters |
C bi,bj - Loop counters |
44 |
C I,J,K |
C I,J,K |
45 |
INTEGER bi, bj |
INTEGER bi, bj |
46 |
INTEGER I, J, K, localWarnings |
INTEGER I, J, K, localWarnings |
47 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
48 |
|
CEOP |
49 |
|
|
50 |
C-- Initialise salinity field to the vertical reference profile |
C-- Initialise salinity field to the vertical reference profile |
51 |
DO bj = myByLo(myThid), myByHi(myThid) |
DO bj = myByLo(myThid), myByHi(myThid) |