Changeset 4568 for branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/trazdf_exp_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_exp_tam.F90
r3611 r4568 397 397 tsa_ad(:,:,:,:) = 0.0_wp 398 398 tsb_ad(:,:,:,:) = 0.0_wp 399 400 r2dtra(:) = 2.* rdttra(:) 399 401 !-------------------------------------------------------------------- 400 402 ! Initialize the tangent input with random noise: dx
Note: See TracChangeset
for help on using the changeset viewer.