/[MITgcm]/MITgcm/pkg/layers/layers_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/layers/layers_readparms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by rpa, Wed Sep 16 21:25:47 2009 UTC revision 1.2 by dfer, Wed Sep 30 15:58:29 2009 UTC
# Line 22  C     INPUT PARAMETERS: Line 22  C     INPUT PARAMETERS:
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
# Line 42  C     The MNC stuff is not working yet Line 42  C     The MNC stuff is not working yet
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,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22