22 |
#ifdef ALLOW_LAYERS |
#ifdef ALLOW_LAYERS |
23 |
|
|
24 |
NAMELIST /LAYERS_PARM01/ |
NAMELIST /LAYERS_PARM01/ |
25 |
& layers_G |
& layers_G, layers_taveFreq, layers_diagFreq |
26 |
|
|
27 |
C === Local variables === |
C === Local variables === |
28 |
C msgBuf - Informational/error meesage buffer |
C msgBuf - Informational/error meesage buffer |
42 |
DO k=1,Nlayers+1 |
DO k=1,Nlayers+1 |
43 |
layers_G(k) = UNSET_RL |
layers_G(k) = UNSET_RL |
44 |
ENDDO |
ENDDO |
45 |
|
layers_taveFreq = taveFreq |
46 |
|
layers_diagFreq = dumpFreq |
47 |
|
|
48 |
WRITE(msgBuf,'(A)') 'LAYERS_READPARMS: opening data.layers' |
WRITE(msgBuf,'(A)') 'LAYERS_READPARMS: opening data.layers' |
49 |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |