Changeset 10030 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/ICE
- Timestamp:
- 2018-08-03T10:18:16+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/ICE/iceistate.F90
r10009 r10030 421 421 ! 422 422 ! !* BEFORE fields : 423 CALL ssh2e3_before ! set: hu , hv, r1_hu, r1_hv424 ! ! e3t, e3 w, e3u, e3uw, e3v, e3vw423 CALL ssh2e3_before ! set: hu, hv, r1_hu, r1_hv 424 ! ! e3t, e3u, e3v, e3w 425 425 ! 426 426 ! !* NOW fields : 427 CALL ssh2e3_now ! set: ht , hu , hv, r1_hu, r1_hv428 ! ! e3t, e3 w, e3u, e3uw, e3v, e3vw, e3f427 CALL ssh2e3_now ! set: ht, hu, hv, r1_hu, r1_hv 428 ! ! e3t, e3u, e3v, e3w , e3f 429 429 ! ! gdept_n, gdepw_n, gde3w_n 430 430 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.