| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_calc.F |
122 |
LAYERS_CALC |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_calc.F |
124 |
LAYERS_CALC |
IF ( layers_num(iLa) .EQ. 1 ) THEN |
|
./pkg/layers/layers_calc.F |
125 |
LAYERS_CALC |
CALL LAYERS_FLUXCALC( uVel,vVel,theta,iLa, |
|
./pkg/layers/layers_calc.F |
132 |
LAYERS_CALC |
CALL LAYERS_DIAPYCNAL( theta,iLa, |
|
./pkg/layers/layers_calc.F |
144 |
LAYERS_CALC |
ELSEIF ( layers_num(iLa) .EQ. 2 ) THEN |
|
./pkg/layers/layers_calc.F |
145 |
LAYERS_CALC |
CALL LAYERS_FLUXCALC( uVel,vVel,salt,iLa, |
|
./pkg/layers/layers_calc.F |
152 |
LAYERS_CALC |
CALL LAYERS_DIAPYCNAL( salt,iLa, |
|
./pkg/layers/layers_calc.F |
164 |
LAYERS_CALC |
ELSEIF ( layers_num(iLa) .EQ. 3 ) THEN |
|
./pkg/layers/layers_calc.F |
181 |
LAYERS_CALC |
& layers_krho(iLa), |
|
./pkg/layers/layers_calc.F |
190 |
LAYERS_CALC |
& k, layers_krho(iLa), |
|
./pkg/layers/layers_calc.F |
193 |
LAYERS_CALC |
& k, layers_krho(iLa), |
|
./pkg/layers/layers_calc.F |
204 |
LAYERS_CALC |
CALL LAYERS_FLUXCALC( uVel,vVel, prho, iLa, |
|
./pkg/layers/layers_calc.F |
211 |
LAYERS_CALC |
CALL LAYERS_DIAPYCNAL( prho,iLa, |
|
./pkg/layers/layers_calc.F |
229 |
LAYERS_CALC |
& .AND. layers_num(iLa).NE.0 ) THEN |
|
./pkg/layers/layers_calc.F |
233 |
LAYERS_CALC |
WRITE(suff,'(I2.2,A1,I10.10)') iLa, '.', myIter |
|
./pkg/layers/layers_calc.F |
236 |
LAYERS_CALC |
WRITE(suff,'(I2.2,A1,A)') iLa, '.', sufx |
|
./pkg/layers/layers_calc.F |
255 |
LAYERS_CALC |
IF ( layers_num(iLa).EQ.3 ) THEN |
|
./pkg/layers/layers_calc.F |
303 |
LAYERS_CALC |
IF ( useDiagnostics .AND. layers_num(iLa).NE.0 ) THEN |
|
./pkg/layers/layers_calc.F |
306 |
LAYERS_CALC |
IF ( layers_num(iLa).EQ.3 ) THEN |
|
./pkg/layers/layers_calc.F |
307 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaTr',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
314 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaUH',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
318 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaHw',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
321 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaPw',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
324 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaUa',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
331 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaVH',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
335 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaHs',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
338 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaPs',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
341 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaVa',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
348 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaHc',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
351 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaPc',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
354 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaTs',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
357 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaTh',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
360 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaTz',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
363 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LTha',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
366 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LTza',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
369 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LTto',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
372 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaSs',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
375 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaSh',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
378 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LaSz',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
381 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LSha',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
384 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LSza',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
387 |
LAYERS_CALC |
WRITE(diagName,'(A4,I1,A3)') 'LSto',iLa,layers_name(iLa) |
|
./pkg/layers/layers_calc.F |
400 |
LAYERS_CALC |
IF ( layers_taveFreq.GT.0. .AND. iLa.EQ.1 ) THEN |
|
./pkg/layers/layers_calc.F |
423 |
LAYERS_CALC |
IF ( layers_num(iLa) .EQ. 3 ) |
|
./pkg/layers/layers_calc.F |
87 |
LAYERS_CALC |
INTEGER bi, bj, iLa |
|
./pkg/layers/layers_check.F |
101 |
LAYERS_CHECK |
IF ( layers_krho(iLa).LT.1 .OR. layers_krho(iLa).GT.Nr ) THEN |
|
./pkg/layers/layers_check.F |
103 |
LAYERS_CHECK |
& 'Invalid layer_krho(iLa=', iLa,') =', layers_krho(iLa) |
|
./pkg/layers/layers_check.F |
28 |
LAYERS_CHECK |
INTEGER iLa, k, errCount |
|
./pkg/layers/layers_check.F |
44 |
LAYERS_CHECK |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_check.F |
45 |
LAYERS_CHECK |
IF ( layers_num(iLa).NE.0 ) THEN |
|
./pkg/layers/layers_check.F |
47 |
LAYERS_CHECK |
IF ( iLa.LE.9 ) WRITE(sfx,'(I1)') iLa |
|
./pkg/layers/layers_check.F |
50 |
LAYERS_CHECK |
CALL WRITE_0D_I( layers_num(iLa), INDEX_NONE, tmpName(1:15), |
|
./pkg/layers/layers_check.F |
53 |
LAYERS_CHECK |
CALL WRITE_0D_C( layers_name(iLa),-1,INDEX_NONE, tmpName(1:16), |
|
./pkg/layers/layers_check.F |
57 |
LAYERS_CHECK |
& CALL WRITE_0D_L ( layers_bolus(iLa), INDEX_NONE, tmpName(1:17), |
|
./pkg/layers/layers_check.F |
60 |
LAYERS_CHECK |
IF ( layers_num(iLa).EQ.3 ) |
|
./pkg/layers/layers_check.F |
61 |
LAYERS_CHECK |
& CALL WRITE_0D_I( layers_krho(iLa), INDEX_NONE, tmpName(1:16), |
|
./pkg/layers/layers_check.F |
64 |
LAYERS_CHECK |
CALL WRITE_1D_RL( layers_bounds(1,iLa), Nlayers+1, INDEX_K, |
|
./pkg/layers/layers_check.F |
72 |
LAYERS_CHECK |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_check.F |
74 |
LAYERS_CHECK |
IF ( layers_num(iLa).NE.0 ) THEN |
|
./pkg/layers/layers_check.F |
78 |
LAYERS_CHECK |
IF ( layers_bounds(k,iLa).GE.layers_bounds(k+1,iLa) ) THEN |
|
./pkg/layers/layers_check.F |
79 |
LAYERS_CHECK |
WRITE(msgBuf,'(A,I2,A,I4)') 'LAYERS_CHECK(iLa=', iLa, |
|
./pkg/layers/layers_check.F |
87 |
LAYERS_CHECK |
IF ( layers_num(iLa).EQ.3 ) THEN |
|
./pkg/layers/layers_check.F |
90 |
LAYERS_CHECK |
tmpVar = layers_bounds(Nlayers+1,iLa) - layers_bounds(1,iLa) |
|
./pkg/layers/layers_check.F |
91 |
LAYERS_CHECK |
IF ( tmpVar.LE.50. .AND. layers_bounds(1,iLa).GE.950. ) THEN |
|
./pkg/layers/layers_check.F |
92 |
LAYERS_CHECK |
WRITE(msgBuf,'(A,I2,A)') 'LAYERS_CHECK(iLa=', iLa, |
|
./pkg/layers/layers_check.F |
95 |
LAYERS_CHECK |
WRITE(msgBuf,'(A,I2,A)') 'LAYERS_CHECK(iLa=', iLa, |
|
./pkg/layers/layers_diagnostics_init.F |
109 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaHw',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
118 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaHs',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
128 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaPw',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
137 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaPs',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
147 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaUa',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
156 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaVa',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
171 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaHc',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
180 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaTs',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
189 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaTh',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
200 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaTz',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
209 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LTha',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
218 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LTza',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
227 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LTto',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
236 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaSs',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
245 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaSh',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
254 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaSz',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
263 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LSha',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
272 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LSza',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
281 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LSto',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
291 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaPc',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
40 |
LAYERS_DIAGNOSTICS_INIT |
INTEGER iLa |
|
./pkg/layers/layers_diagnostics_init.F |
63 |
LAYERS_DIAGNOSTICS_INIT |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_diagnostics_init.F |
64 |
LAYERS_DIAGNOSTICS_INIT |
IF ( layers_num(iLa).NE.0 ) THEN |
|
./pkg/layers/layers_diagnostics_init.F |
67 |
LAYERS_DIAGNOSTICS_INIT |
IF ( layers_num(iLa).EQ.3 ) THEN |
|
./pkg/layers/layers_diagnostics_init.F |
68 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaTr',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
70 |
LAYERS_DIAGNOSTICS_INIT |
kLoc = layers_krho(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
88 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaUH',iLa,layers_name(iLa) |
|
./pkg/layers/layers_diagnostics_init.F |
97 |
LAYERS_DIAGNOSTICS_INIT |
WRITE(diagName,'(A4,I1,A3)') 'LaVH',iLa,layers_name(iLa) |
|
./pkg/layers/layers_fluxcalc.F |
190 |
LAYERS_FLUXCALC |
I layers_bounds(1,iLa),Nlayers,mSteps,sNx,sNy,TatU, |
|
./pkg/layers/layers_fluxcalc.F |
19 |
LAYERS_FLUXCALC |
I uVel,vVel,tracer,iLa, |
|
./pkg/layers/layers_fluxcalc.F |
224 |
LAYERS_FLUXCALC |
IF ( layers_bolus(iLa) ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
270 |
LAYERS_FLUXCALC |
I layers_bounds(1,iLa),Nlayers,mSteps,sNx,sNy,TatV, |
|
./pkg/layers/layers_fluxcalc.F |
313 |
LAYERS_FLUXCALC |
IF ( layers_bolus(iLa) ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
381 |
LAYERS_DIAPYCNAL |
I tracer,iLa, |
|
./pkg/layers/layers_fluxcalc.F |
420 |
LAYERS_DIAPYCNAL |
INTEGER iLa, myThid |
|
./pkg/layers/layers_fluxcalc.F |
563 |
LAYERS_DIAPYCNAL |
I layers_bounds(1,iLa),Nlayers,mSteps,sNx,sNy,TatC, |
|
./pkg/layers/layers_fluxcalc.F |
587 |
LAYERS_DIAPYCNAL |
I layers_bounds_w(1,iLa),Nlayers-1,mSteps,sNx,sNy,TatC, |
|
./pkg/layers/layers_fluxcalc.F |
627 |
LAYERS_DIAPYCNAL |
dzfac = dzfac * layers_recip_delta(kloc,iLa) |
|
./pkg/layers/layers_fluxcalc.F |
629 |
LAYERS_DIAPYCNAL |
IF ( layers_num(iLa) .EQ. 3 ) THEN |
|
./pkg/layers/layers_fluxcalc.F |
86 |
LAYERS_FLUXCALC |
INTEGER iLa |
|
./pkg/layers/layers_init_fixed.F |
145 |
LAYERS_INIT_FIXED |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_init_fixed.F |
146 |
LAYERS_INIT_FIXED |
IF ( layers_num(iLa).NE.0 ) THEN |
|
./pkg/layers/layers_init_fixed.F |
147 |
LAYERS_INIT_FIXED |
WRITE(tmpName,'(A7,I1,A3)') 'layers',iLa,layers_name(iLa) |
|
./pkg/layers/layers_init_fixed.F |
148 |
LAYERS_INIT_FIXED |
CALL WRITE_GLVEC_RL( tmpName, ' ',layers_bounds(1,iLa),1+Nlayers, |
|
./pkg/layers/layers_init_fixed.F |
155 |
LAYERS_INIT_FIXED |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_init_fixed.F |
156 |
LAYERS_INIT_FIXED |
IF ( layers_num(iLa).NE.0 ) THEN |
|
./pkg/layers/layers_init_fixed.F |
158 |
LAYERS_INIT_FIXED |
layers_bounds_w(k,iLa) = 0.5 _d 0 * ( |
|
./pkg/layers/layers_init_fixed.F |
159 |
LAYERS_INIT_FIXED |
& layers_bounds(k+1,iLa) + |
|
./pkg/layers/layers_init_fixed.F |
160 |
LAYERS_INIT_FIXED |
& layers_bounds(k,iLa) ) |
|
./pkg/layers/layers_init_fixed.F |
163 |
LAYERS_INIT_FIXED |
layers_recip_delta(k,iLa) = 1.0 _d 0 / ( |
|
./pkg/layers/layers_init_fixed.F |
164 |
LAYERS_INIT_FIXED |
& layers_bounds_w(k+1,iLa) - |
|
./pkg/layers/layers_init_fixed.F |
165 |
LAYERS_INIT_FIXED |
& layers_bounds_w(k,iLa) ) |
|
./pkg/layers/layers_init_fixed.F |
34 |
LAYERS_INIT_FIXED |
INTEGER k,kk,kkinit,iLa |
|
./pkg/layers/layers_output.F |
48 |
LAYERS_OUTPUT |
INTEGER iLa |
|
./pkg/layers/layers_output.F |
57 |
LAYERS_OUTPUT |
iLa=1 |
|
./pkg/layers/layers_readparms.F |
116 |
LAYERS_READPARMS |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_readparms.F |
117 |
LAYERS_READPARMS |
IF ( layers_name(iLa).NE.' ' ) errCount = errCount + 1 |
|
./pkg/layers/layers_readparms.F |
118 |
LAYERS_READPARMS |
IF ( layers_krho(iLa).NE.1 ) errCount = errCount + 1 |
|
./pkg/layers/layers_readparms.F |
120 |
LAYERS_READPARMS |
IF ( layers_bounds(k,iLa).NE.UNSET_RL ) errCount = errCount+1 |
|
./pkg/layers/layers_readparms.F |
148 |
LAYERS_READPARMS |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_readparms.F |
149 |
LAYERS_READPARMS |
layers_num(iLa) = 0 |
|
./pkg/layers/layers_readparms.F |
150 |
LAYERS_READPARMS |
IF ( layers_name(iLa).EQ.'TH ' ) layers_num(iLa) = 1 |
|
./pkg/layers/layers_readparms.F |
151 |
LAYERS_READPARMS |
IF ( layers_name(iLa).EQ.'SLT' ) layers_num(iLa) = 2 |
|
./pkg/layers/layers_readparms.F |
152 |
LAYERS_READPARMS |
IF ( layers_name(iLa).EQ.'RHO' ) layers_num(iLa) = 3 |
|
./pkg/layers/layers_readparms.F |
153 |
LAYERS_READPARMS |
IF ( layers_name(iLa).NE.' ' .AND. |
|
./pkg/layers/layers_readparms.F |
154 |
LAYERS_READPARMS |
& layers_num(iLa).EQ.0 ) THEN |
|
./pkg/layers/layers_readparms.F |
156 |
LAYERS_READPARMS |
& 'invalid layers_name(',iLa,')= "',layers_name(iLa),'"' |
|
./pkg/layers/layers_readparms.F |
161 |
LAYERS_READPARMS |
layers_bolus(iLa) = layers_bolus(iLa) .AND. useGMRedi |
|
./pkg/layers/layers_readparms.F |
165 |
LAYERS_READPARMS |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_readparms.F |
166 |
LAYERS_READPARMS |
IF ( layers_num(iLa).NE.0 ) THEN |
|
./pkg/layers/layers_readparms.F |
168 |
LAYERS_READPARMS |
IF ( layers_bounds(k,iLa).EQ.UNSET_RL ) THEN |
|
./pkg/layers/layers_readparms.F |
170 |
LAYERS_READPARMS |
& 'No value for layers_bounds(k=',k,', iLa=', iLa, ')' |
|
./pkg/layers/layers_readparms.F |
28 |
LAYERS_READPARMS |
INTEGER iUnit, k, iLa |
|
./pkg/layers/layers_readparms.F |
65 |
LAYERS_READPARMS |
DO iLa=1,layers_maxNum |
|
./pkg/layers/layers_readparms.F |
66 |
LAYERS_READPARMS |
layers_name(iLa) = ' ' |
|
./pkg/layers/layers_readparms.F |
67 |
LAYERS_READPARMS |
layers_krho(iLa)= 1 |
|
./pkg/layers/layers_readparms.F |
68 |
LAYERS_READPARMS |
layers_bolus(iLa) = useGMRedi |
|
./pkg/layers/layers_readparms.F |
70 |
LAYERS_READPARMS |
layers_bounds(k,iLa) = UNSET_RL |