Changeset 4568 for branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/trazdf_imp_tam.F90
- Timestamp:
- 2014-03-25T11:56:08+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/trazdf_imp_tam.F90
r3627 r4568 577 577 tsb_ad(:,:,:,:) = 0.0_wp 578 578 tsb_ad(:,:,:,:) = 0.0_wp 579 580 r2dtra(:) = 2.* rdttra(:) 579 581 !-------------------------------------------------------------------- 580 582 ! Initialize the tangent input with random noise: dx
Note: See TracChangeset
for help on using the changeset viewer.