158 |
cph 38 snowprecip |
cph 38 snowprecip |
159 |
cph 39 apressure |
cph 39 apressure |
160 |
cph 40 runoff |
cph 40 runoff |
161 |
|
cph 41 seaice SIAREA |
162 |
|
cph 42 seaice SIHEFF |
163 |
|
cph 43 seaice SIHSNOW |
164 |
cph) |
cph) |
165 |
|
|
166 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
995 |
#endif /* ALLOW_RUNOFF_CONTROL */ |
#endif /* ALLOW_RUNOFF_CONTROL */ |
996 |
|
|
997 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
998 |
|
c-- |
999 |
|
#ifdef ALLOW_SIAREA_CONTROL |
1000 |
|
startrec = 1 |
1001 |
|
endrec = 1 |
1002 |
|
diffrec = endrec - startrec + 1 |
1003 |
|
call ctrl_init_ctrlvar ( |
1004 |
|
& xx_siarea_file, 41, 141, diffrec, startrec, endrec, |
1005 |
|
& snx, sny, 1, 'c', 'xy', mythid ) |
1006 |
|
#endif /* ALLOW_siarea_CONTROL */ |
1007 |
|
|
1008 |
|
c---------------------------------------------------------------------- |
1009 |
|
c-- |
1010 |
|
#ifdef ALLOW_SIHEFF_CONTROL |
1011 |
|
startrec = 1 |
1012 |
|
endrec = 1 |
1013 |
|
diffrec = endrec - startrec + 1 |
1014 |
|
call ctrl_init_ctrlvar ( |
1015 |
|
& xx_siheff_file, 42, 142, diffrec, startrec, endrec, |
1016 |
|
& snx, sny, 1, 'c', 'xy', mythid ) |
1017 |
|
#endif /* ALLOW_siheff_CONTROL */ |
1018 |
|
|
1019 |
|
c---------------------------------------------------------------------- |
1020 |
|
c-- |
1021 |
|
#ifdef ALLOW_SIHSNOW_CONTROL |
1022 |
|
startrec = 1 |
1023 |
|
endrec = 1 |
1024 |
|
diffrec = endrec - startrec + 1 |
1025 |
|
call ctrl_init_ctrlvar ( |
1026 |
|
& xx_sihsnow_file, 42, 142, diffrec, startrec, endrec, |
1027 |
|
& snx, sny, 1, 'c', 'xy', mythid ) |
1028 |
|
#endif /* ALLOW_sihsnow_CONTROL */ |
1029 |
|
|
1030 |
|
c---------------------------------------------------------------------- |
1031 |
c---------------------------------------------------------------------- |
c---------------------------------------------------------------------- |
1032 |
|
|
1033 |
call ctrl_init_wet( mythid ) |
call ctrl_init_wet( mythid ) |