Changeset 4568
- Timestamp:
- 2014-03-25T11:56:08+01:00 (10 years ago)
- Location:
- branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA
- Files:
-
- 2 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 -
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.