Changeset 670 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2007-06-01T19:28:33+02:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC/SBC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/flx_core.h90
r633 r670 507 507 END DO 508 508 509 !!gm ==> at this point, a lbc is required, no?510 !511 ! lb : should we do this here? !!gm yes should we remove that???512 tauxg(:,:) = taux(:,:) ! Save components in513 tauyg(:,:) = tauy(:,:) ! geographical ref on U grid514 !515 509 ! 516 510 ! II.2) Turbulent fluxes over ocean -
trunk/NEMO/OPA_SRC/SBC/tau_forced_daily.h90
r473 r670 92 92 93 93 CALL FLUSH(numout) 94 94 95 ENDIF 95 96 ! Save components in geographical ref on U grid97 tauxg(:,:) = taux(:,:)98 tauyg(:,:) = tauy(:,:)99 96 100 97 ! ------------------- ! -
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.