/[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.2 by dfer, Wed Sep 30 15:58:29 2009 UTC revision 1.3 by dfer, Sat Dec 4 23:50:32 2010 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_taveFreq, layers_diagFreq       &       layers_G, layers_taveFreq, layers_diagFreq,
26         &       LAYER_nb
27    
28  C     === Local variables ===  C     === Local variables ===
29  C     msgBuf      - Informational/error meesage buffer  C     msgBuf      - Informational/error meesage buffer
# Line 44  C     The MNC stuff is not working yet Line 45  C     The MNC stuff is not working yet
45        ENDDO        ENDDO
46        layers_taveFreq = taveFreq        layers_taveFreq = taveFreq
47        layers_diagFreq = dumpFreq        layers_diagFreq = dumpFreq
48          LAYER_nb = 1
49    
50        WRITE(msgBuf,'(A)') 'LAYERS_READPARMS: opening data.layers'        WRITE(msgBuf,'(A)') 'LAYERS_READPARMS: opening data.layers'
51        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22