- Timestamp:
- 2020-02-18T10:44:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/ICE/icedyn_rdgrft.F90
r12379 r12394 500 500 REAL(wp) :: airdg1, oirdg1, aprdg1, virdg1, sirdg1 501 501 REAL(wp) :: airft1, oirft1, aprft1 502 REAL(wp), DIMENSION(jpij) :: airdg2, oirdg2, aprdg2, virdg2, sirdg2, vsrdg, vprdg ! area etc of new ridges503 REAL(wp), DIMENSION(jpij) :: airft2, oirft2, aprft2, virft , sirft , vsrft, vprft ! area etc of rafted ice502 REAL(wp), DIMENSION(jpij) :: airdg2, oirdg2, aprdg2, virdg2, sirdg2, vsrdg, vprdg, lhprdg ! area etc of new ridges 503 REAL(wp), DIMENSION(jpij) :: airft2, oirft2, aprft2, virft , sirft , vsrft, vprft, lhprft ! area etc of rafted ice 504 504 ! 505 505 REAL(wp), DIMENSION(jpij) :: ersw ! enth of water trapped into ridges
Note: See TracChangeset
for help on using the changeset viewer.