Changeset 670 for trunk/NEMO/OPA_SRC/SBC/tau_forced_monthly.h90
- Timestamp:
- 2007-06-01T19:28:33+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/tau_forced_monthly.h90
r473 r670 122 122 123 123 CALL FLUSH(numout) 124 124 125 ENDIF 125 126 … … 135 136 tauy(:,:) = (1.-zxy) * tauy_dta(:,:,1) + zxy * tauy_dta(:,:,2) 136 137 137 ! Save components138 139 tauxg(:,:) = taux(:,:)140 tauyg(:,:) = tauy(:,:)141 142 CALL FLUSH(numout)143 144 138 ! ------------------- ! 145 139 ! Last call kt=nitend !
Note: See TracChangeset
for help on using the changeset viewer.