Changeset 5605 for branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
- Timestamp:
- 2015-07-16T20:05:07+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5589_marine_glacier_termini/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r5436 r5605 23 23 USE sbc_oce ! surface boundary condition: ocean 24 24 USE sbcisf ! ice shelf variable (fwfisf) 25 USE traicw ! ice shelf variable (fwfisf) 25 26 USE dynspg_oce ! surface pressure gradient variables 26 27 USE phycst ! physical constants … … 457 458 ELSE 458 459 zssh_frc(:,:) = zraur * z1_2 * ( emp(:,:) + emp_b(:,:) - rnf(:,:) - rnf_b(:,:) & 459 & + rdivisf * ( fwfisf(:,:) + fwfisf_b(:,:) ) ) 460 & + rdivisf * ( fwfisf(:,:) + fwfisf_b(:,:) ) & 461 - qtot(:,:) - qtot_b(:,:) ) 460 462 ENDIF 461 463 #if defined key_asminc
Note: See TracChangeset
for help on using the changeset viewer.