Changeset 10288 for NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD
- Timestamp:
- 2018-11-07T18:25:49+01:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD
- Files:
-
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trd_oce.F90
r9598 r10288 78 78 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 79 79 !! $Id$ 80 !! Software governed by the CeCILL licen ce (./LICENSE)80 !! Software governed by the CeCILL license (see ./LICENSE) 81 81 !!====================================================================== 82 82 END MODULE trd_oce -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trddyn.F90
r9598 r10288 40 40 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 41 41 !! $Id$ 42 !! Software governed by the CeCILL licen ce (./LICENSE)42 !! Software governed by the CeCILL license (see ./LICENSE) 43 43 !!---------------------------------------------------------------------- 44 44 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdglo.F90
r9598 r10288 55 55 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 56 56 !! $Id$ 57 !! Software governed by the CeCILL licen ce (./LICENSE)57 !! Software governed by the CeCILL license (see ./LICENSE) 58 58 !!---------------------------------------------------------------------- 59 59 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdini.F90
r9598 r10288 30 30 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 31 31 !! $Id$ 32 !! Software governed by the CeCILL licen ce (./LICENSE)32 !! Software governed by the CeCILL license (see ./LICENSE) 33 33 !!---------------------------------------------------------------------- 34 34 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdken.F90
r9598 r10288 44 44 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 45 45 !! $Id$ 46 !! Software governed by the CeCILL licen ce (./LICENSE)46 !! Software governed by the CeCILL license (see ./LICENSE) 47 47 !!---------------------------------------------------------------------- 48 48 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdmxl.F90
r9598 r10288 71 71 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 72 72 !! $Id$ 73 !! Software governed by the CeCILL licen ce (./LICENSE)73 !! Software governed by the CeCILL license (see ./LICENSE) 74 74 !!---------------------------------------------------------------------- 75 75 CONTAINS … … 303 303 !! of time-averaged mixed-layer fields, this residual WILL NOT BE ZERO 304 304 !! over the first two analysis windows (except if restart). 305 !! N.B. For ORCA2_ LIM, use e.g. nn_trd=5, rn_ucf=1., nn_ctls=8305 !! N.B. For ORCA2_ICE, use e.g. nn_trd=5, rn_ucf=1., nn_ctls=8 306 306 !! for checking residuals. 307 307 !! On a NEC-SX5 computer, this typically leads to: -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdmxl_oce.F90
r9598 r10288 84 84 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 85 85 !! $Id$ 86 !! Software governed by the CeCILL licen ce (./LICENSE)86 !! Software governed by the CeCILL license (see ./LICENSE) 87 87 !!---------------------------------------------------------------------- 88 88 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdmxl_rst.F90
r9598 r10288 28 28 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 29 29 !! $Id$ 30 !! Software governed by the CeCILL licen ce (./LICENSE)30 !! Software governed by the CeCILL license (see ./LICENSE) 31 31 !!--------------------------------------------------------------------------------- 32 32 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdpen.F90
r9598 r10288 40 40 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 41 41 !! $Id$ 42 !! Software governed by the CeCILL licen ce (./LICENSE)42 !! Software governed by the CeCILL license (see ./LICENSE) 43 43 !!---------------------------------------------------------------------- 44 44 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdtra.F90
r9598 r10288 45 45 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 46 46 !! $Id$ 47 !! Software governed by the CeCILL licen ce (./LICENSE)47 !! Software governed by the CeCILL license (see ./LICENSE) 48 48 !!---------------------------------------------------------------------- 49 49 CONTAINS … … 358 358 SELECT CASE( ktrd ) 359 359 CASE( jptra_atf ) ; CALL iom_put( "ttrd_atf" , ptrdx ) ! asselin time Filter 360 CALL iom_put( "strd_atf" , ptrdy )360 CALL iom_put( "strd_atf" , ptrdy ) 361 361 END SELECT 362 362 END IF 363 !364 ! These trends are done every second time step. When 1ts output is selected must go different (2ts) file from standard T-file365 IF( MOD( kt, 2 ) == 0 ) THEN366 SELECT CASE( ktrd )367 CASE( jptra_xad ) ; CALL iom_put( "ttrd_xad" , ptrdx ) ! x- horizontal advection368 CALL iom_put( "strd_xad" , ptrdy )369 CASE( jptra_yad ) ; CALL iom_put( "ttrd_yad" , ptrdx ) ! y- horizontal advection370 CALL iom_put( "strd_yad" , ptrdy )371 CASE( jptra_zad ) ; CALL iom_put( "ttrd_zad" , ptrdx ) ! z- vertical advection372 CALL iom_put( "strd_zad" , ptrdy )373 IF( ln_linssh ) THEN ! cst volume : adv flux through z=0 surface374 ALLOCATE( z2dx(jpi,jpj) , z2dy(jpi,jpj) )375 z2dx(:,:) = wn(:,:,1) * tsn(:,:,1,jp_tem) / e3t_n(:,:,1)376 z2dy(:,:) = wn(:,:,1) * tsn(:,:,1,jp_sal) / e3t_n(:,:,1)377 CALL iom_put( "ttrd_sad", z2dx )378 CALL iom_put( "strd_sad", z2dy )379 DEALLOCATE( z2dx, z2dy )380 ENDIF381 CASE( jptra_totad ) ; CALL iom_put( "ttrd_totad", ptrdx ) ! total advection382 CALL iom_put( "strd_totad", ptrdy )383 CASE( jptra_ldf ) ; CALL iom_put( "ttrd_ldf" , ptrdx ) ! lateral diffusion384 CALL iom_put( "strd_ldf" , ptrdy )385 CASE( jptra_zdf ) ; CALL iom_put( "ttrd_zdf" , ptrdx ) ! vertical diffusion (including Kz contribution)386 CALL iom_put( "strd_zdf" , ptrdy )387 CASE( jptra_zdfp ) ; CALL iom_put( "ttrd_zdfp" , ptrdx ) ! PURE vertical diffusion (no isoneutral contribution)388 CALL iom_put( "strd_zdfp" , ptrdy )389 CASE( jptra_evd ) ; CALL iom_put( "ttrd_evd" , ptrdx ) ! EVD trend (convection)390 CALL iom_put( "strd_evd" , ptrdy )391 CASE( jptra_dmp ) ; CALL iom_put( "ttrd_dmp" , ptrdx ) ! internal restoring (damping)392 CALL iom_put( "strd_dmp" , ptrdy )393 CASE( jptra_bbl ) ; CALL iom_put( "ttrd_bbl" , ptrdx ) ! bottom boundary layer394 CALL iom_put( "strd_bbl" , ptrdy )395 CASE( jptra_npc ) ; CALL iom_put( "ttrd_npc" , ptrdx ) ! static instability mixing396 CALL iom_put( "strd_npc" , ptrdy )397 CASE( jptra_bbc ) ; CALL iom_put( "ttrd_bbc" , ptrdx ) ! geothermal heating (only on temperature)398 CASE( jptra_nsr ) ; CALL iom_put( "ttrd_qns" , ptrdx(:,:,1) ) ! surface forcing + runoff (ln_rnf=T)399 CALL iom_put( "strd_cdt" , ptrdy(:,:,1) ) ! output as 2D surface fields400 CASE( jptra_qsr ) ; CALL iom_put( "ttrd_qsr" , ptrdx ) ! penetrative solar radiat. (only on temperature)401 END SELECT402 ! the Asselin filter trend is also every other time step but needs to be lagged one time step403 ! Even when 1ts output is selected can go to the same (2ts) file as the trends plotted every even time step.404 ELSEIF( MOD( kt, 2 ) == 1 ) THEN405 SELECT CASE( ktrd )406 CASE( jptra_atf ) ; CALL iom_put( "ttrd_atf" , ptrdx ) ! asselin time Filter407 CALL iom_put( "strd_atf" , ptrdy )408 END SELECT409 ENDIF410 363 ! 411 364 END SUBROUTINE trd_tra_iom -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdtrc.F90
r9598 r10288 19 19 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 20 20 !! $Id$ 21 !! Software governed by the CeCILL licen ce (./LICENSE)21 !! Software governed by the CeCILL license (see ./LICENSE) 22 22 !!====================================================================== 23 23 END MODULE trdtrc -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdvor.F90
r9598 r10288 60 60 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 61 61 !! $Id$ 62 !! Software governed by the CeCILL licen ce (./LICENSE)62 !! Software governed by the CeCILL license (see ./LICENSE) 63 63 !!---------------------------------------------------------------------- 64 64 CONTAINS -
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/TRD/trdvor_oce.F90
r9598 r10288 30 30 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 31 31 !! $Id$ 32 !! Software governed by the CeCILL licen ce (./LICENSE)32 !! Software governed by the CeCILL license (see ./LICENSE) 33 33 !!====================================================================== 34 34 END MODULE trdvor_oce
Note: See TracChangeset
for help on using the changeset viewer.