/[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.6 by gforget, Wed Sep 19 18:48:18 2012 UTC revision 1.7 by dfer, Mon Jan 7 02:07:55 2013 UTC
# Line 84  c  print statement or two as I override Line 84  c  print statement or two as I override
84        IF ( LAYER_nb.NE.0 ) THEN        IF ( LAYER_nb.NE.0 ) THEN
85          layers_num(1) = LAYER_nb          layers_num(1) = LAYER_nb
86          layers_krho(1) = layers_kref          layers_krho(1) = layers_kref
87          layers_bolus(iLa) = useBOLUS          layers_bolus(1) = useBOLUS
88          DO k=1,Nlayers+1          DO k=1,Nlayers+1
89            layers_bounds(k,1) = layers_G(k)            layers_bounds(k,1) = layers_G(k)
90          ENDDO          ENDDO

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.22