| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
736 |
CHPPRM |
_RL scat,d |
|
./pkg/fizhi/fizhi_utils.F |
887 |
CHPPRM |
d = vgdd(k2,ityp(i))*facp + vgdd(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
888 |
CHPPRM |
ufac(i) = log( (vgz2(ityp(i)) - d) / zoch(i) ) |
|
./pkg/openad/openad_dumpAdjoint.F |
106 |
OPENAD_DUMPADJOINT |
foo5=thetad |
|
./pkg/openad/openad_dumpAdjoint.F |
108 |
OPENAD_DUMPADJOINT |
foo5=saltd |
|
./pkg/openad/openad_dumpAdjoint.F |
110 |
OPENAD_DUMPADJOINT |
foo5=uveld |
|
./pkg/openad/openad_dumpAdjoint.F |
112 |
OPENAD_DUMPADJOINT |
foo5=vveld |
|
./pkg/openad/openad_dumpAdjoint.F |
114 |
OPENAD_DUMPADJOINT |
foo5=wveld |
|
./pkg/openad/openad_dumpAdjoint.F |
116 |
OPENAD_DUMPADJOINT |
foo4=etand |
|
./pkg/openad/openad_dumpAdjoint.F |
120 |
OPENAD_DUMPADJOINT |
foo5=diffkrd |
|
./pkg/openad/openad_dumpAdjoint.F |
124 |
OPENAD_DUMPADJOINT |
foo4=qnetd |
|
./pkg/openad/openad_dumpAdjoint.F |
128 |
OPENAD_DUMPADJOINT |
foo4=empmrd |
|
./pkg/openad/openad_dumpAdjoint.F |
132 |
OPENAD_DUMPADJOINT |
foo4=fud |
|
./pkg/openad/openad_dumpAdjoint.F |
136 |
OPENAD_DUMPADJOINT |
foo4=fvd |
|
./pkg/openad/openad_dumpAdjoint.F |
140 |
OPENAD_DUMPADJOINT |
foo4=qnetmd |
|
./pkg/openad/the_model_main.F |
457 |
THE_MODEL_MAIN |
fcd=1.0 |
|
./pkg/openad/the_model_main.F |
478 |
THE_MODEL_MAIN |
+xx_salt(i1,i2,i3,i4,i5)d,'/',xx_theta(i1,i2,i3,i4,i5)d |
|
./pkg/openad/the_model_main.F |
492 |
THE_MODEL_MAIN |
foo=xx_thetad |
|
./pkg/openad/the_model_main.F |
499 |
THE_MODEL_MAIN |
foo=xx_saltd |
|
./pkg/openad/the_model_main.F |
506 |
THE_MODEL_MAIN |
foo=diffkrd |
|
./pkg/openad/the_model_main.F |
515 |
THE_MODEL_MAIN |
foo2D=fud |
|
./pkg/openad/the_model_main.F |
522 |
THE_MODEL_MAIN |
foo2D=fvd |
|
./pkg/openad/the_model_main.F |
529 |
THE_MODEL_MAIN |
foo2D=qnetd |
|
./pkg/openad/the_model_main.F |
536 |
THE_MODEL_MAIN |
foo2D=empmrd |
|
./pkg/openad/the_model_main.F |
543 |
THE_MODEL_MAIN |
foo2D=xx_hfluxmd |
|
./pkg/openad/the_model_main.F |
550 |
THE_MODEL_MAIN |
foo2D=etand |
|
./pkg/opps/opps_interface.F |
129 |
OPPS_INTERFACE |
tMax = -1. d 23 |
|
./pkg/opps/opps_interface.F |
130 |
OPPS_INTERFACE |
tMin = 1. d 23 |
|
./pkg/opps/opps_interface.F |
131 |
OPPS_INTERFACE |
sMax = -1. d 23 |
|
./pkg/opps/opps_interface.F |
132 |
OPPS_INTERFACE |
sMin = 1. d 23 |
|
./pkg/opps/opps_interface.F |
149 |
OPPS_INTERFACE |
tMaxNew = -1. d 23 |
|
./pkg/opps/opps_interface.F |
150 |
OPPS_INTERFACE |
tMinNew = 1. d 23 |
|
./pkg/opps/opps_interface.F |
151 |
OPPS_INTERFACE |
sMaxNew = -1. d 23 |
|
./pkg/opps/opps_interface.F |
152 |
OPPS_INTERFACE |
sMinNew = 1. d 23 |
|
./pkg/ptracers/PTRACERS_MOD.h |
25 |
NO PROCEDURE |
PtrISt(g)som_P(a,b,c,d,e,f) |
|
./optim/optim_readdata.F |
386 |
OPTIM_READDATA |
ff = 0. d 0 |
|
./pkg/autodiff/addummy_in_stepping.F |
455 |
ADDUMMY_IN_STEPPING |
foo3D = thetad |
|
./pkg/autodiff/addummy_in_stepping.F |
458 |
ADDUMMY_IN_STEPPING |
foo3D = saltd |
|
./pkg/autodiff/addummy_in_stepping.F |
461 |
ADDUMMY_IN_STEPPING |
foo3D = uveld |
|
./pkg/autodiff/addummy_in_stepping.F |
464 |
ADDUMMY_IN_STEPPING |
foo3D = vveld |
|
./pkg/autodiff/addummy_in_stepping.F |
467 |
ADDUMMY_IN_STEPPING |
foo3D = wveld |
|
./pkg/autodiff/addummy_in_stepping.F |
470 |
ADDUMMY_IN_STEPPING |
foo2D = etaNd |
|
./pkg/autodiff/addummy_in_stepping.F |
475 |
ADDUMMY_IN_STEPPING |
foo2D = Fud |
|
./pkg/autodiff/addummy_in_stepping.F |
477 |
ADDUMMY_IN_STEPPING |
foo2D = Fvd |
|
./pkg/autodiff/addummy_in_stepping.F |
479 |
ADDUMMY_IN_STEPPING |
foo2D = Qnetd |
|
./pkg/autodiff/addummy_in_stepping.F |
481 |
ADDUMMY_IN_STEPPING |
foo2D = EmPmRd |
|
./pkg/autodiff/addummy_in_stepping.F |
497 |
ADDUMMY_IN_STEPPING |
foo3D = DiffKrd |
|
./pkg/autodiff/addummy_in_stepping.F |
502 |
ADDUMMY_IN_STEPPING |
foo3D = KapGMd |
|
./pkg/autodiff/addummy_in_stepping.F |
507 |
ADDUMMY_IN_STEPPING |
foo3D = KapRedid |
|
./pkg/autodiff/addummy_in_stepping.F |
512 |
ADDUMMY_IN_STEPPING |
foo3D = EddyPsiXd |
|
./pkg/autodiff/addummy_in_stepping.F |
515 |
ADDUMMY_IN_STEPPING |
foo3D = EddyPsiYd |
|
./pkg/autodiff/addummy_in_stepping.F |
520 |
ADDUMMY_IN_STEPPING |
foo2D = sstd |
|
./pkg/autodiff/addummy_in_stepping.F |
524 |
ADDUMMY_IN_STEPPING |
foo2D = sssd |
|
./pkg/autodiff/addummy_in_stepping.F |
528 |
ADDUMMY_IN_STEPPING |
foo2D = BottomDragFldd |
|
./pkg/autodiff/addummy_in_stepping.F |
535 |
ADDUMMY_IN_STEPPING |
foo3D = thetad |
|
./pkg/autodiff/addummy_in_stepping.F |
538 |
ADDUMMY_IN_STEPPING |
foo3D = saltd |
|
./pkg/autodiff/addummy_in_stepping.F |
541 |
ADDUMMY_IN_STEPPING |
foo3D = uveld |
|
./pkg/autodiff/addummy_in_stepping.F |
544 |
ADDUMMY_IN_STEPPING |
foo3D = vveld |
|
./pkg/autodiff/addummy_in_stepping.F |
547 |
ADDUMMY_IN_STEPPING |
foo3D = wveld |
|
./pkg/autodiff/addummy_in_stepping.F |
550 |
ADDUMMY_IN_STEPPING |
foo2D = etand |
|
./pkg/autodiff/addummy_in_stepping.F |
555 |
ADDUMMY_IN_STEPPING |
foo2D = fud |
|
./pkg/autodiff/addummy_in_stepping.F |
558 |
ADDUMMY_IN_STEPPING |
foo2D = fvd |
|
./pkg/autodiff/addummy_in_stepping.F |
561 |
ADDUMMY_IN_STEPPING |
foo2D = Qnetd |
|
./pkg/autodiff/addummy_in_stepping.F |
564 |
ADDUMMY_IN_STEPPING |
foo2D = EmPmRd |
|
./pkg/autodiff/addummy_in_stepping.F |
582 |
ADDUMMY_IN_STEPPING |
foo3D = Diffkrd |
|
./pkg/autodiff/addummy_in_stepping.F |
587 |
ADDUMMY_IN_STEPPING |
foo3D = KapGMd |
|
./pkg/autodiff/addummy_in_stepping.F |
592 |
ADDUMMY_IN_STEPPING |
foo3D = KapRedid |
|
./pkg/autodiff/addummy_in_stepping.F |
597 |
ADDUMMY_IN_STEPPING |
foo3D = EddyPsiXd |
|
./pkg/autodiff/addummy_in_stepping.F |
600 |
ADDUMMY_IN_STEPPING |
foo3D = EddyPsiYd |
|
./pkg/autodiff/addummy_in_stepping.F |
605 |
ADDUMMY_IN_STEPPING |
foo2D = sstd |
|
./pkg/autodiff/addummy_in_stepping.F |
610 |
ADDUMMY_IN_STEPPING |
foo2D = sssd |
|
./pkg/autodiff/addummy_in_stepping.F |
615 |
ADDUMMY_IN_STEPPING |
foo2D = BottomDragFldd |
|
./pkg/autodiff/addummy_in_stepping.F |
623 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, thetad,var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
628 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, saltd, var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
633 |
ADDUMMY_IN_STEPPING |
CALL COPY_AD_UV_OUTP( dumRS, dumRS, uVeld, vVeld, |
|
./pkg/autodiff/addummy_in_stepping.F |
643 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, wVeld, var3Du, Nr, 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
648 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, EtaNd, var2Du, 1 , 12, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
655 |
ADDUMMY_IN_STEPPING |
CALL COPY_AD_UV_OUTP( Fud, Fvd, dumRL, dumRL, |
|
./pkg/autodiff/addummy_in_stepping.F |
665 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( Qnetd, dumRL, var2Du, 1, 11, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
670 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( EmPmRd,dumRL, var2Du, 1, 11, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
691 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, DiffKrd,var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
698 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, KapGMd, var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
705 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS,KapRedid,var3Du, Nr, 12,myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
712 |
ADDUMMY_IN_STEPPING |
CALL COPY_AD_UV_OUTP( EddyPsiXd, EddyPsiYd, dumRL, dumRL, |
|
./pkg/autodiff/addummy_in_stepping.F |
724 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( SSTd, dumRL, var2Du, 1, 11, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
731 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( SSSd, dumRL, var2Du, 1, 11, myThid ) |
|
./pkg/autodiff/addummy_in_stepping.F |
738 |
ADDUMMY_IN_STEPPING |
CALL COPY_ADVAR_OUTP( dumRS, BottomDragFldd, |
|
./pkg/bbl/bbl_calc_rhs.F |
162 |
BBL_CALC_RHS |
d = j |
|
./pkg/bbl/bbl_calc_rhs.F |
165 |
BBL_CALC_RHS |
d = j + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
170 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
171 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
172 |
BBL_CALC_RHS |
IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
173 |
BBL_CALC_RHS |
& ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
174 |
BBL_CALC_RHS |
& ( bbl_eta (i,d,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
175 |
BBL_CALC_RHS |
& bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
182 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
184 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
186 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
193 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
199 |
BBL_CALC_RHS |
bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
200 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
206 |
BBL_CALC_RHS |
bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
207 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
212 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
213 |
BBL_CALC_RHS |
IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
214 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
215 |
BBL_CALC_RHS |
bbl_theta(i,d,bi,bj) = tLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
216 |
BBL_CALC_RHS |
bbl_salt (i,d,bi,bj) = sLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
264 |
BBL_CALC_RHS |
d = j |
|
./pkg/bbl/bbl_calc_rhs.F |
267 |
BBL_CALC_RHS |
d = j + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
272 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
273 |
BBL_CALC_RHS |
& hFacC(i,d,kLowC(i,d,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
274 |
BBL_CALC_RHS |
IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
275 |
BBL_CALC_RHS |
& ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
276 |
BBL_CALC_RHS |
& ( bbl_eta (i,d,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
277 |
BBL_CALC_RHS |
& bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
284 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
286 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
288 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
295 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
301 |
BBL_CALC_RHS |
bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
302 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
308 |
BBL_CALC_RHS |
bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
309 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
314 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
315 |
BBL_CALC_RHS |
IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
316 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
317 |
BBL_CALC_RHS |
bbl_theta(i,d,bi,bj) = tLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
318 |
BBL_CALC_RHS |
bbl_salt (i,d,bi,bj) = sLoc(i,d) |
|
./pkg/bbl/bbl_calc_rhs.F |
367 |
BBL_CALC_RHS |
d = i |
|
./pkg/bbl/bbl_calc_rhs.F |
370 |
BBL_CALC_RHS |
d = i + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
375 |
BBL_CALC_RHS |
thk_d = drF(kLowC(d,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
376 |
BBL_CALC_RHS |
& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
377 |
BBL_CALC_RHS |
IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
378 |
BBL_CALC_RHS |
& ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
379 |
BBL_CALC_RHS |
& ( bbl_eta (d,j,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
380 |
BBL_CALC_RHS |
& bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
387 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
389 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
391 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
398 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
404 |
BBL_CALC_RHS |
bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
405 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
411 |
BBL_CALC_RHS |
bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
412 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
417 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
418 |
BBL_CALC_RHS |
IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
419 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
420 |
BBL_CALC_RHS |
bbl_theta(d,j,bi,bj) = tLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
421 |
BBL_CALC_RHS |
bbl_salt (d,j,bi,bj) = sLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
469 |
BBL_CALC_RHS |
d = i |
|
./pkg/bbl/bbl_calc_rhs.F |
472 |
BBL_CALC_RHS |
d = i + 1 |
|
./pkg/bbl/bbl_calc_rhs.F |
477 |
BBL_CALC_RHS |
thk_d = drF(kLowC(d,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
478 |
BBL_CALC_RHS |
& hFacC(d,j,kLowC(d,j,bi,bj),bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
479 |
BBL_CALC_RHS |
IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
480 |
BBL_CALC_RHS |
& ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND. |
|
./pkg/bbl/bbl_calc_rhs.F |
481 |
BBL_CALC_RHS |
& ( bbl_eta (d,j,bi,bj) .LT. bbl_initEta ) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
482 |
BBL_CALC_RHS |
& bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d ) |
|
./pkg/bbl/bbl_calc_rhs.F |
489 |
BBL_CALC_RHS |
bblTheta_d = bbl_theta(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
491 |
BBL_CALC_RHS |
bblSalt_d = bbl_salt (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
493 |
BBL_CALC_RHS |
bblEta_d = bbl_eta (d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
500 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
506 |
BBL_CALC_RHS |
bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
507 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
513 |
BBL_CALC_RHS |
bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) - |
|
./pkg/bbl/bbl_calc_rhs.F |
514 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
519 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
520 |
BBL_CALC_RHS |
IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN |
|
./pkg/bbl/bbl_calc_rhs.F |
521 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = 0. _d 0 |
|
./pkg/bbl/bbl_calc_rhs.F |
522 |
BBL_CALC_RHS |
bbl_theta(d,j,bi,bj) = tLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
523 |
BBL_CALC_RHS |
bbl_salt (d,j,bi,bj) = sLoc(d,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
66 |
BBL_CALC_RHS |
INTEGER i, j, d, r, kBot, kLowC1, kLowC2, kl |