| File |
Line number |
Procedure |
Code |
|
./verification/advect_xz/code/ini_theta.F |
49 |
INI_THETA |
_RL rD |
|
./verification/advect_xz/code/ini_theta.F |
65 |
INI_THETA |
rD=sqrt( (XC(i,j,bi,bj)-40.E3)**2 |
|
./verification/advect_xz/code/ini_theta.F |
68 |
INI_THETA |
theta(i,j,k,bi,bj)=exp(-0.5*( rD/20.E3 )**2 ) |
|
./verification/advect_xy/code/ini_salt.F |
40 |
INI_SALT |
_RL rD |
|
./verification/advect_xy/code/ini_salt.F |
48 |
INI_SALT |
rD=sqrt( (XC(i,j,bi,bj)-40.E3)**2 |
|
./verification/advect_xy/code/ini_salt.F |
52 |
INI_SALT |
IF (rD.LE.60.E3) salt(I,J,K,bi,bj) = sRef(K)+1. |
|
./verification/advect_xy/code/ini_theta.F |
49 |
INI_THETA |
_RL rD |
|
./verification/advect_xy/code/ini_theta.F |
65 |
INI_THETA |
rD=sqrt( (XC(i,j,bi,bj)-40.E3)**2 |
|
./verification/advect_xy/code/ini_theta.F |
68 |
INI_THETA |
theta(i,j,k,bi,bj)=exp(-0.5*( rD/20.E3 )**2 ) |