Changeset 12721 for NEMO/branches/UKMO/NEMO_4.0.2_GO8_package_ENHANCE-02_ISF_nemo/src/OCE/DYN/dynspg_ts.F90
- Timestamp:
- 2020-04-08T20:42:57+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.2_GO8_package_ENHANCE-02_ISF_nemo/src/OCE/DYN/dynspg_ts.F90
r12658 r12721 31 31 USE dom_oce ! ocean space and time domain 32 32 USE sbc_oce ! surface boundary condition: ocean 33 USE isf_oce ! ice shelf variable (fwfisf) 33 34 USE zdf_oce ! vertical physics: variables 34 35 USE zdfdrg ! vertical physics: top/bottom drag coef. 35 USE sbcisf ! ice shelf variable (fwfisf)36 36 USE sbcapr ! surface boundary condition: atmospheric pressure 37 37 USE dynadv , ONLY: ln_dynadv_vec … … 331 331 ! ! --------------------------------------------------- ! 332 332 IF (ln_bt_fw) THEN ! FORWARD integration: use kt+1/2 fluxes (NOW+1/2) 333 zssh_frc(:,:) = r1_rau0 * ( emp(:,:) - rnf(:,:) + fwfisf(:,:))333 zssh_frc(:,:) = r1_rau0 * ( emp(:,:) - rnf(:,:) + fwfisf_cav(:,:) + fwfisf_par(:,:) ) 334 334 ELSE ! CENTRED integration: use kt-1/2 + kt+1/2 fluxes (NOW) 335 335 zztmp = r1_rau0 * r1_2 336 zssh_frc(:,:) = zztmp * ( emp(:,:) + emp_b(:,:) - rnf(:,:) - rnf_b(:,:) + fwfisf(:,:) + fwfisf_b(:,:) ) 336 zssh_frc(:,:) = zztmp * ( emp(:,:) + emp_b(:,:) & 337 & - rnf(:,:) - rnf_b(:,:) & 338 & + fwfisf_cav(:,:) + fwfisf_cav_b(:,:) & 339 & + fwfisf_par(:,:) + fwfisf_par_b(:,:) ) 337 340 ENDIF 338 341 ! != Add Stokes drift divergence =! (if exist) … … 340 343 zssh_frc(:,:) = zssh_frc(:,:) + div_sd(:,:) 341 344 ENDIF 345 ! 346 ! ! ice sheet coupling 347 IF ( ln_isf .AND. ln_isfcpl ) THEN 348 ! 349 ! ice sheet coupling 350 IF( ln_rstart .AND. kt == nit000 ) THEN 351 zssh_frc(:,:) = zssh_frc(:,:) + risfcpl_ssh(:,:) 352 END IF 353 ! 354 ! conservation option 355 IF( ln_isfcpl_cons ) THEN 356 zssh_frc(:,:) = zssh_frc(:,:) + risfcpl_cons_ssh(:,:) 357 END IF 358 ! 359 END IF 342 360 ! 343 361 #if defined key_asminc
Note: See TracChangeset
for help on using the changeset viewer.