Changeset 6140 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
- Timestamp:
- 2015-12-21T12:35:23+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r5836 r6140 35 35 TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_tsd ! structure of input SST (file informations, fields read) 36 36 37 !! * Substitutions38 # include "domzgr_substitute.h90"39 37 !!---------------------------------------------------------------------- 40 38 !! NEMO/OPA 3.3 , NEMO Consortium (2010) … … 250 248 ENDIF 251 249 ! 252 IF( lwp .AND. kt == nit000 ) THEN253 WRITE(numout,*) ' temperature Levitus '254 WRITE(numout,*)255 WRITE(numout,*)' level = 1'256 CALL prihre( ptsd(:,:,1 ,jp_tem), jpi, jpj, 1, jpi, 20, 1, jpj, 20, 1., numout )257 WRITE(numout,*)' level = ', jpk/2258 CALL prihre( ptsd(:,:,jpk/2,jp_tem), jpi, jpj, 1, jpi, 20, 1, jpj, 20, 1., numout )259 WRITE(numout,*)' level = ', jpkm1260 CALL prihre( ptsd(:,:,jpkm1,jp_tem), jpi, jpj, 1, jpi, 20, 1, jpj, 20, 1., numout )261 WRITE(numout,*)262 WRITE(numout,*) ' salinity Levitus '263 WRITE(numout,*)264 WRITE(numout,*)' level = 1'265 CALL prihre( ptsd(:,:,1 ,jp_sal), jpi, jpj, 1, jpi, 20, 1, jpj, 20, 1., numout )266 WRITE(numout,*)' level = ', jpk/2267 CALL prihre( ptsd(:,:,jpk/2,jp_sal), jpi, jpj, 1, jpi, 20, 1, jpj, 20, 1., numout )268 WRITE(numout,*)' level = ', jpkm1269 CALL prihre( ptsd(:,:,jpkm1,jp_sal), jpi, jpj, 1, jpi, 20, 1, jpj, 20, 1., numout )270 WRITE(numout,*)271 ENDIF272 !273 250 IF( .NOT.ln_tsd_tradmp ) THEN !== deallocate T & S structure ==! 274 251 ! (data used only for initialisation)
Note: See TracChangeset
for help on using the changeset viewer.