Changeset 12489 for NEMO/trunk/src/ICE/icewri.F90
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icewri.F90
r12377 r12489 87 87 ! Standard outputs 88 88 !----------------- 89 zrho1 = ( r au0 - rhoi ) * r1_rau0 ; zrho2 = rhos * r1_rau089 zrho1 = ( rho0 - rhoi ) * r1_rho0 ; zrho2 = rhos * r1_rho0 90 90 ! masks 91 91 CALL iom_put( 'icemask' , zmsk00 ) ! ice mask 0%
Note: See TracChangeset
for help on using the changeset viewer.