| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_update_masks.F |
104 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=hFacCtmp |
|
./pkg/shelfice/shelfice_update_masks.F |
49 |
SHELFICE_UPDATE_MASKS |
_RL hFacCtmp |
|
./pkg/shelfice/shelfice_update_masks.F |
91 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = (rF(k)-R_shelfIce(I,J,bi,bj))*recip_drF(K) |
|
./pkg/shelfice/shelfice_update_masks.F |
93 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./pkg/shelfice/shelfice_update_masks.F |
95 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = max( hFacCtmp, 0. _d 0) |
|
./pkg/shelfice/shelfice_update_masks.F |
97 |
SHELFICE_UPDATE_MASKS |
IF (hFacCtmp.LT.hFacMnSz) THEN |
|
./pkg/shelfice/shelfice_update_masks.F |
98 |
SHELFICE_UPDATE_MASKS |
IF (hFacCtmp.LT.hFacMnSz*0.5) THEN |
|
./model/src/ini_masks_etc.F |
110 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
112 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0) |
|
./model/src/ini_masks_etc.F |
114 |
INI_MASKS_ETC |
hFacCtmp = max( hFacCtmp, 0. _d 0) |
|
./model/src/ini_masks_etc.F |
116 |
INI_MASKS_ETC |
IF (hFacCtmp.LT.hFacMnSz) THEN |
|
./model/src/ini_masks_etc.F |
117 |
INI_MASKS_ETC |
IF (hFacCtmp.LT.hFacMnSz*0.5) THEN |
|
./model/src/ini_masks_etc.F |
123 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/ini_masks_etc.F |
48 |
INI_MASKS_ETC |
_RL hFacCtmp |
|
./model/src/ini_masks_etc.F |
66 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
68 |
INI_MASKS_ETC |
hFacCtmp=min( max( hFacCtmp, 0. _d 0) , 1. _d 0) |
|
./model/src/ini_masks_etc.F |
70 |
INI_MASKS_ETC |
IF (hFacCtmp.LT.hFacMnSz) THEN |
|
./model/src/ini_masks_etc.F |
71 |
INI_MASKS_ETC |
IF (hFacCtmp.LT.hFacMnSz*0.5) THEN |
|
./model/src/ini_masks_etc.F |
77 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacCtmp |
|
./model/src/update_masks_etc.F |
103 |
UPDATE_MASKS_ETC |
IF ( hFacCtmp .LE. 0. _d 0 ) THEN |
|
./model/src/update_masks_etc.F |
106 |
UPDATE_MASKS_ETC |
ELSEIF ( hFacCtmp .GT. 1. _d 0 ) THEN |
|
./model/src/update_masks_etc.F |
109 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./model/src/update_masks_etc.F |
110 |
UPDATE_MASKS_ETC |
& EXP(-hFacCtmp/hFacMnSz)-EXP(-1./hFacMnSz) ) |
|
./model/src/update_masks_etc.F |
75 |
UPDATE_MASKS_ETC |
_RL hFacCtmp, hFacCtmp2 |
|
./model/src/update_masks_etc.F |
90 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |