| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_get_forcing.F |
100 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( vwind0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
101 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( vwind1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
102 |
SEAICE_GET_FORCING |
initValue = 283. _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
103 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( atemp0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
104 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( atemp1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
105 |
SEAICE_GET_FORCING |
initValue = 0.005 _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
106 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( aqh0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
107 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( aqh1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
108 |
SEAICE_GET_FORCING |
initValue = 300. _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
109 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( lwdown0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
110 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( lwdown1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
111 |
SEAICE_GET_FORCING |
initValue = 200. _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
112 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( swdown0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
113 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( swdown1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
114 |
SEAICE_GET_FORCING |
initValue = ZERO |
|
./pkg/seaice/seaice_get_forcing.F |
115 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( precip0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
116 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( precip1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
117 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( evap0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
118 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( evap1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
119 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( runoff0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
120 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( runoff1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
121 |
SEAICE_GET_FORCING |
initValue = 35. _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
122 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( SSSsi0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
123 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( SSSsi1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
124 |
SEAICE_GET_FORCING |
initValue = 10. _d 0 |
|
./pkg/seaice/seaice_get_forcing.F |
125 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( SSTsi0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
126 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( SSTsi1 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
49 |
SEAICE_GET_FORCING |
_RS initValue |
|
./pkg/seaice/seaice_get_forcing.F |
549 |
INIT_ARRAY_RS |
SUBROUTINE INIT_ARRAY_RS( arr, initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
557 |
INIT_ARRAY_RS |
_RS initValue |
|
./pkg/seaice/seaice_get_forcing.F |
569 |
INIT_ARRAY_RS |
arr(i,j,bi,bj) = initValue |
|
./pkg/seaice/seaice_get_forcing.F |
97 |
SEAICE_GET_FORCING |
initValue = ZERO |
|
./pkg/seaice/seaice_get_forcing.F |
98 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( uwind0 , initValue, myThid ) |
|
./pkg/seaice/seaice_get_forcing.F |
99 |
SEAICE_GET_FORCING |
CALL INIT_ARRAY_RS( uwind1 , initValue, myThid ) |