Changeset 7950 for branches/UKMO/dev_r5518_GO6_package_inc_asm
- Timestamp:
- 2017-04-21T17:36:40+02:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/step.F90
r7941 r7950 285 285 CALL tra_nxt( kstp ) ! tracer fields at next time step 286 286 CALL eos ( tsa, rhd, rhop, fsdept_n(:,:,:) ) ! Time-filtered in situ density for hpg computation 287 CALL lbc_lnk( rhd, 'T', 1.0_wp ) 287 288 IF( ln_zps .AND. .NOT. ln_isfcav) & 288 289 & CALL zps_hde ( kstp, jpts, tsa, gtsu, gtsv, & ! Partial steps: before horizontal gradient … … 295 296 IF ( .NOT. lk_dynspg_ts ) THEN ! eos already called in time-split case 296 297 CALL eos ( tsn, rhd, rhop, fsdept_n(:,:,:) ) ! now in situ density for hpg computation 298 CALL lbc_lnk( rhd, 'T', 1.0_wp ) 297 299 IF( ln_zps .AND. .NOT. ln_isfcav) & 298 300 & CALL zps_hde ( kstp, jpts, tsn, gtsu, gtsv, & ! Partial steps: before horizontal gradient
Note: See TracChangeset
for help on using the changeset viewer.