| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_update_masks.F |
101 |
SHELFICE_UPDATE_MASKS |
hFacC(I,J,K,bi,bj)=hFacMnSz |
|
./pkg/shelfice/shelfice_update_masks.F |
50 |
SHELFICE_UPDATE_MASKS |
_RL hFacMnSz |
|
./pkg/shelfice/shelfice_update_masks.F |
87 |
SHELFICE_UPDATE_MASKS |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _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 |
106 |
INI_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _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 |
120 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./model/src/ini_masks_etc.F |
49 |
INI_MASKS_ETC |
_RL hFacMnSz |
|
./model/src/ini_masks_etc.F |
62 |
INI_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),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 |
74 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj)=hFacMnSz |
|
./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 |
76 |
UPDATE_MASKS_ETC |
_RL hFacMnSz |
|
./model/src/update_masks_etc.F |
85 |
UPDATE_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |