| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
943 |
ASTRO |
FUN(Y) = (TWO*PI/((ONE-ECC**2)**1.5))*(ONE/YRLEN) |
|
./pkg/fizhi/fizhi_clockstuff.F |
968 |
ASTRO |
T2 = FUN(ZERO+T1/TWO)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
969 |
ASTRO |
T3 = FUN(ZERO+T2/TWO)*FAC |
|
./pkg/fizhi/fizhi_clockstuff.F |
971 |
ASTRO |
TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
975 |
ASTRO |
T2 = FUN(TH(KM)+T1/TWO) |
|
./pkg/fizhi/fizhi_clockstuff.F |
976 |
ASTRO |
T3 = FUN(TH(KM)+T2/TWO) |
|
./pkg/fizhi/fizhi_clockstuff.F |
979 |
ASTRO |
TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX |
|
./pkg/fizhi/fizhi_clockstuff.F |
992 |
ASTRO |
THM = MOD( TH(IDAY) ,TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
993 |
ASTRO |
THP = MOD( TH(IDAYP1),TWO*PI) |
|
./pkg/fizhi/fizhi_clockstuff.F |
995 |
ASTRO |
IF(THP.LT.THM) THP = THP + TWO*PI |
|
./pkg/seaice/advect.F |
49 |
ADVECT |
DELTT=SEAICE_deltaTtherm*TWO |
|
./pkg/seaice/dynsolver.F |
209 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
222 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
316 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
329 |
DYNSOLVER |
PRESS(I,J,bi,bj)=TWO*ZETA(I,J,bi,bj)*DELT2 |
|
./pkg/seaice/dynsolver.F |
63 |
DYNSOLVER |
ECCEN=TWO |
|
./pkg/seaice/dynsolver.F |
90 |
DYNSOLVER |
& *TWO*OMEGA*SINEICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
143 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj)*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
216 |
LSR |
7 -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
225 |
LSR |
& *TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
231 |
LSR |
& *TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
371 |
LSR |
AA6=TWO*ETAMEAN(I,J,bi,bj)*TNGICE(I,J,bi,bj)*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
376 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
386 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj)*DELYR(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
440 |
LSR |
7 +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
490 |
LSR |
& +ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
499 |
LSR |
& -ETAMEAN(I,J,bi,bj)*TWO*TNGICE(I,J,bi,bj) |
|
./pkg/seaice/ostres.F |
67 |
OSTRES |
& -UICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO |
|
./pkg/seaice/ostres.F |
69 |
OSTRES |
& -VICE(I,J,3,bi,bj))*AMASS(I,J,bi,bj)/SEAICE_DT*TWO |
|
./pkg/seaice/growth.F |
229 |
GROWTH |
GAREA(I,J)=TWO*(ONE-AREA(I,J,2,bi,bj))*GAREA(I,J)/HO |
|
./pkg/seaice/SEAICE_PARAMS.h |
156 |
NO PROCEDURE |
_RL ZERO , ONE , TWO |
|
./pkg/seaice/SEAICE_PARAMS.h |
157 |
NO PROCEDURE |
parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 ) |