Changeset 15194
- Timestamp:
- 2021-08-13T17:14:10+02:00 (3 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE/DYN/dynspg_ts.F90
r15179 r15194 392 392 END DO 393 393 ENDIF 394 CALL trd_dyn( ztautrdu, ztautrdv, jpdyn_iceoc2d, kt ) 394 IF( ln_isfcav.OR.ln_drgice_imp ) THEN 395 ! Save this part of the ice-ocean drag as the first installment of top friction 396 CALL trd_dyn( ztautrdu, ztautrdv, jpdyn_iceoc2d, kt ) 397 ELSE 398 ! In this case this is the whole top friction trend 399 CALL trd_dyn( ztautrdu, ztautrdv, jpdyn_tfr, kt ) 400 ENDIF 395 401 ENDIF 396 402 ! initialise fields for wind stress trends -
NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE/TRD/trddyn.F90
r15184 r15194 209 209 ! write out total top and bottom friction "trends" for the surface / bottom layers after 210 210 ! removing any depth-mean component. 211 IF( ALLOCATED( zutrd_tfr ) ) THEN 211 IF( ALLOCATED( zutrd_tfr ) .OR. ALLOCATED( zutrd_iceoc ) ) THEN 212 ! With explicit top and bottom friction, the top friction diagnostic 213 ! is initialised here. 214 IF( .NOT. ALLOCATED( zutrd_tfr ) ) THEN 215 ALLOCATE( zutrd_tfr(jpi,jpj,jpk), zvtrd_tfr(jpi,jpj,jpk) ) 216 zutrd_tfr(:,:,:) = 0.0 217 zvtrd_tfr(:,:,:) = 0.0 218 ENDIF 212 219 IF( ALLOCATED( zutrd_iceoc ) ) THEN 213 220 ! Add trend due to ice-ocean stress at the surface
Note: See TracChangeset
for help on using the changeset viewer.