| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_PARAMS.h |
504 |
NO PROCEDURE |
_RL SEAICEgStar, SEAICEhStar, SEAICEaStar, SEAICEshearParm |
|
./pkg/seaice/SEAICE_PARAMS.h |
549 |
NO PROCEDURE |
& SEAICEgStar, SEAICEhStar, SEAICEaStar, SEAICEshearParm, |
|
./pkg/seaice/seaice_prepare_ridging.F |
152 |
SEAICE_PREPARE_RIDGING |
recip_gStar = 1. _d 0 / SEAICEgStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
157 |
SEAICE_PREPARE_RIDGING |
IF ( gSum(i,j,k) .LT. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
161 |
SEAICE_PREPARE_RIDGING |
ELSEIF ( gSum(i,j,k-1) .LT. SEAICEgStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
162 |
SEAICE_PREPARE_RIDGING |
& .AND. gSum(i,j,k) .GE. SEAICEgStar ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
164 |
SEAICE_PREPARE_RIDGING |
& (SEAICEgStar-gSum(i,j,k-1)) * recip_gStar |
|
./pkg/seaice/seaice_prepare_ridging.F |
165 |
SEAICE_PREPARE_RIDGING |
& *( 2. _d 0 - (gSum(i,j,k-1)+SEAICEgStar)*recip_gStar) |
|
./pkg/seaice/seaice_readparms.F |
132 |
SEAICE_READPARMS |
& SEAICEgStar, SEAICEhStar, SEAICEaStar, SEAICEshearParm, |
|
./pkg/seaice/seaice_readparms.F |
252 |
SEAICE_READPARMS |
SEAICEgStar = 0.15 _d 0 |
|
./pkg/seaice/seaice_summary.F |
534 |
SEAICE_SUMMARY |
CALL WRITE_0D_RL( SEAICEgStar ,INDEX_NONE, |