| File |
Line number |
Procedure |
Code |
|
./pkg/icefront/ICEFRONT.h |
54 |
NO PROCEDURE |
COMMON /ICEFRONT_PARMS_I/ K_icefront |
|
./pkg/icefront/ICEFRONT.h |
55 |
NO PROCEDURE |
INTEGER K_icefront (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/icefront/icefront_init_fixed.F |
60 |
ICEFRONT_INIT_FIXED |
K_icefront(i,j,bi,bj) = 0 |
|
./pkg/icefront/icefront_init_fixed.F |
63 |
ICEFRONT_INIT_FIXED |
& K_icefront(I,J,bi,bj) = K |
|
./pkg/icefront/icefront_init_fixed.F |
79 |
ICEFRONT_INIT_FIXED |
IsInterface=Isinterface + K_icefront(I,J,bi,bj) |
|
./pkg/icefront/icefront_thermodynamics.F |
103 |
ICEFRONT_THERMODYNAMICS |
& .AND. K .LE. K_icefront(I,J,bi,bj) ) THEN |
|
./pkg/icefront/icefront_thermodynamics.F |
115 |
ICEFRONT_THERMODYNAMICS |
IF ( K .EQ. K_icefront(I,J,bi,bj)) THEN |