Changeset 144
- Timestamp:
- 2004-10-19T15:29:08+02:00 (20 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/LDF/ldftra_c1d.h90
r3 r144 41 41 IF(lwp) WRITE(numout,*) 42 42 IF(lwp) WRITE(numout,*) ' inildf : 1D eddy diffusivity and eddy induced velocity coefficients' 43 IF(lwp) WRITE(numout,*) ' ~~~~~~ -- 43 IF(lwp) WRITE(numout,*) ' ~~~~~~ -- ' 44 44 IF(lwp) WRITE(numout,*) 45 45 ELSE … … 77 77 WRITE(numout,*) ' aht profile at T-level : ' 78 78 WRITE(numout,*) 79 WRITE(numout,*) ' level aht depth t-level ' )79 WRITE(numout,*) ' level aht depth t-level ' 80 80 DO jk = 1, jpk 81 81 WRITE(numout,'(i6,2f12.4)') jk, ahtt(jk), fsdept(1,1,jk) -
trunk/NEMO/OPA_SRC/geo2ocean.F90
r88 r144 2 2 !!====================================================================== 3 3 !! *** MODULE geo2ocean *** 4 !! Ocean mesh : vertical mixing coefficient compute from the tke 5 !! turbulent closure parameterization 4 !! Ocean mesh : ??? 6 5 !!===================================================================== 7 6
Note: See TracChangeset
for help on using the changeset viewer.