24 |
C == Global variables === |
C == Global variables === |
25 |
#include "AIM_SIZE.h" |
#include "AIM_SIZE.h" |
26 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
27 |
c #include "PARAMS.h" |
#include "PARAMS.h" |
28 |
#include "AIM_PARAMS.h" |
#include "AIM_PARAMS.h" |
29 |
|
|
30 |
C- Physical constants + functions of sigma and latitude |
C- Physical constants + functions of sigma and latitude |
248 |
WRITE(msgBuf,'(A)') '// ===================================' |
WRITE(msgBuf,'(A)') '// ===================================' |
249 |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1) |
250 |
|
|
251 |
|
CALL WRITE_0D_L( useLand, INDEX_NONE, |
252 |
|
& 'useLand =', |
253 |
|
&' /* use Land package for surf.BC over land */') |
254 |
|
|
255 |
C- namelist AIM_PARAMS: |
C- namelist AIM_PARAMS: |
256 |
CALL WRITE_0D_L( aim_useFMsurfBC, INDEX_NONE, |
CALL WRITE_0D_L( aim_useFMsurfBC, INDEX_NONE, |
257 |
& 'aim_useFMsurfBC =', |
& 'aim_useFMsurfBC =', |