Changeset 9935 for NEMO/trunk/src/ICE/iceupdate.F90
- Timestamp:
- 2018-07-12T16:12:48+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/iceupdate.F90
r9922 r9935 171 171 snwice_mass_b(ji,jj) = snwice_mass(ji,jj) ! save mass from the previous ice time step 172 172 ! ! new mass per unit area 173 snwice_mass (ji,jj) = tmask(ji,jj,1) * ( rhos n * vt_s(ji,jj) + rhoic* vt_i(ji,jj) )173 snwice_mass (ji,jj) = tmask(ji,jj,1) * ( rhos * vt_s(ji,jj) + rhoi * vt_i(ji,jj) ) 174 174 ! ! time evolution of snow+ice mass 175 175 snwice_fmass (ji,jj) = ( snwice_mass(ji,jj) - snwice_mass_b(ji,jj) ) * r1_rdtice … … 431 431 ELSE ! start from rest 432 432 IF(lwp) WRITE(numout,*) ' ==>> previous run without snow-ice mass output then set it' 433 snwice_mass (:,:) = tmask(:,:,1) * ( rhos n * vt_s(:,:) + rhoic* vt_i(:,:) )433 snwice_mass (:,:) = tmask(:,:,1) * ( rhos * vt_s(:,:) + rhoi * vt_i(:,:) ) 434 434 snwice_mass_b(:,:) = snwice_mass(:,:) 435 435 ENDIF 436 436 ELSE !* Start from rest 437 437 IF(lwp) WRITE(numout,*) ' ==>> start from rest: set the snow-ice mass' 438 snwice_mass (:,:) = tmask(:,:,1) * ( rhos n * vt_s(:,:) + rhoic* vt_i(:,:) )438 snwice_mass (:,:) = tmask(:,:,1) * ( rhos * vt_s(:,:) + rhoi * vt_i(:,:) ) 439 439 snwice_mass_b(:,:) = snwice_mass(:,:) 440 440 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.