Changeset 760
- Timestamp:
- 2007-12-10T12:57:02+01:00 (16 years ago)
- Location:
- branches/dev_001_SBC/NEMO
- Files:
-
- 165 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_SBC/NEMO/OFF_SRC/DIA/dianam.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 21 21 !!---------------------------------------------------------------------- 22 22 !! OPA 9.0 , LOCEAN-IPSL (2005) 23 !! $ Id$23 !! $Header$ 24 24 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 25 25 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/DOM/dom_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!---------------------------------------------------------------------- 7 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/DOM/domain.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 42 42 !!---------------------------------------------------------------------- 43 43 !! OPA 9.0 , LOCEAN-IPSL (2005) 44 !! $ Id$44 !! $Header$ 45 45 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 46 46 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/DOM/domcfg.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 22 22 !!---------------------------------------------------------------------- 23 23 !! OPA 9.0 , LOCEAN-IPSL (2005) 24 !! $ Id$24 !! $Header$ 25 25 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 26 26 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/DOM/dommsk.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 25 25 !!---------------------------------------------------------------------- 26 26 !! OPA 9.0 , LOCEAN-IPSL (2005) 27 !! $ Id$27 !! $Header$ 28 28 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 29 29 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/DOM/domrea.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 22 22 !!---------------------------------------------------------------------- 23 23 !! OPA 9.0 , LOCEAN-IPSL (2005) 24 !! $ Id$24 !! $Header$ 25 25 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 26 26 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/DOM/domrea_dimg.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 32 32 !!---------------------------------------------------------------------- 33 33 !! OPA 9.0 , LOCEAN-IPSL (2005) 34 !! $ Id$34 !! $Header$ 35 35 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 36 36 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/DOM/domrea_fdir.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 3 3 !!---------------------------------------------------------------------- 4 4 !! OPA 9.0 , LOCEAN-IPSL (2005) 5 !! $ Id$5 !! $Header$ 6 6 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 7 7 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/DOM/domstp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 28 28 !!---------------------------------------------------------------------- 29 29 !! OPA 9.0 , LOCEAN-IPSL (2005) 30 !! $ Id$30 !! $Header$ 31 31 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 32 32 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/DOM/domzgr_substitute.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 7 7 !!---------------------------------------------------------------------- 8 8 !! OPA 9.0 , LOCEAN-IPSL (2005) 9 !! $Id$10 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)11 !!----------------------------------------------------------------------12 9 !! 13 10 !! History : -
branches/dev_001_SBC/NEMO/OFF_SRC/DYN/dynspg_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!====================================================================== 6 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/IOM/in_out_manager.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 82 82 !!---------------------------------------------------------------------- 83 83 !! OPA 9.0 , LOCEAN-IPSL (2005) 84 !! $ Id$84 !! $Header$ 85 85 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 86 86 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/IOM/iom.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 38 38 !!---------------------------------------------------------------------- 39 39 !! OPA 9.0 , LOCEAN-IPSL (2006) 40 !! $ Id$40 !! $Header$ 41 41 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 42 42 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/IOM/iom_def.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!--------------------------------------------------------------------------------- 9 9 !! OPA 9.0 , LOCEAN-IPSL (2006) 10 !! $ Id$10 !! $Header$ 11 11 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 12 12 !!--------------------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/IOM/iom_ioipsl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 36 36 !!---------------------------------------------------------------------- 37 37 !! OPA 9.0 , LOCEAN-IPSL (2006) 38 !! $ Id$38 !! $Header$ 39 39 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 40 40 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/IOM/iom_nf90.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 36 36 !!---------------------------------------------------------------------- 37 37 !! OPA 9.0 , LOCEAN-IPSL (2006) 38 !! $ Id$38 !! $Header$ 39 39 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 40 40 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/IOM/iom_rstdimg.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 33 33 !!---------------------------------------------------------------------- 34 34 !! OPA 9.0 , LOCEAN-IPSL (2006) 35 !! $ Id$35 !! $Header$ 36 36 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 37 37 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/LDF/ldfeiv.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 28 28 !!---------------------------------------------------------------------- 29 29 !! OPA 9.0 , LOCEAN-IPSL (2005) 30 !! $ Id$30 !! $Header$ 31 31 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 32 32 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/LDF/ldfeiv_substitute.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 7 7 !!---------------------------------------------------------------------- 8 8 !! OPA 9.0 , LOCEAN-IPSL (2005) 9 !! $ Id$9 !! $Header$ 10 10 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 11 11 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/LDF/ldfslp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 48 48 !!---------------------------------------------------------------------- 49 49 !! OPA 9.0 , LOCEAN-IPSL (2005) 50 !! $Id$51 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)52 50 !!---------------------------------------------------------------------- 53 51 -
branches/dev_001_SBC/NEMO/OFF_SRC/LDF/ldftra.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 36 36 !!--------------------------------------------------------------------------------- 37 37 !! OPA 9.0 , LOCEAN-IPSL (2005) 38 !! $ Id$38 !! $Header$ 39 39 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 40 40 !!--------------------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/LDF/ldftra_c1d.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!---------------------------------------------------------------------- 6 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/LDF/ldftra_c2d.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!---------------------------------------------------------------------- 6 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/LDF/ldftra_c3d.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!---------------------------------------------------------------------- 6 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/LDF/ldftra_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 11 11 !!---------------------------------------------------------------------- 12 12 !! OPA 9.0 , LOCEAN-IPSL (2005) 13 !! $ Id$13 !! $Header$ 14 14 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 15 15 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/LDF/ldftra_substitute.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!---------------------------------------------------------------------- 7 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/SBC/blk_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!---------------------------------------------------------------------- 9 9 !! OPA 9.0 , LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header$ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/SBC/flxrnf.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 48 48 !!---------------------------------------------------------------------- 49 49 !! OPA 9.0 , LOCEAN-IPSL (2005) 50 !! $ Id$50 !! $Header$ 51 51 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 52 52 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/SBC/flxrnf_ORCA_R05.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 34 34 !!---------------------------------------------------------------------- 35 35 !! OPA 9.0 , LOCEAN-IPSL (2005) 36 !! $ Id$36 !! $Header$ 37 37 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 38 38 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/SBC/flxrnf_ORCA_R2.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 39 39 !!---------------------------------------------------------------------- 40 40 !! OPA 9.0 , LOCEAN-IPSL (2005) 41 !! $ Id$41 !! $Header$ 42 42 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 43 43 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/SBC/flxrnf_ORCA_R4.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 37 37 !!---------------------------------------------------------------------- 38 38 !! OPA 9.0 , LOCEAN-IPSL (2005) 39 !! $ Id$39 !! $Header$ 40 40 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 41 41 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/SBC/ocesbc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!====================================================================== 6 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/SBC/taumod.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 9 9 !!---------------------------------------------------------------------- 10 10 !! OPA 9.0 , LOCEAN-IPSL (2005) 11 !! $ Id$11 !! $Header$ 12 12 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 13 13 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/SOL/sol_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 11 11 !!---------------------------------------------------------------------- 12 12 !! OPA 9.0 , LOCEAN-IPSL (2005) 13 !! $ Id$13 !! $Header$ 14 14 !!---------------------------------------------------------------------- 15 15 !! * Modules used -
branches/dev_001_SBC/NEMO/OFF_SRC/TRA/trabbl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 13 13 !!---------------------------------------------------------------------- 14 14 !! OPA 9.0 , LOCEAN-IPSL (2005) 15 !! $ Id$15 !! $Header$ 16 16 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 17 17 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/TRA/traqsr.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 10 10 !!---------------------------------------------------------------------- 11 11 !! OPA 9.0 , LOCEAN-IPSL (2005) 12 !! $ Id$12 !! $Header$ 13 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 14 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/TRA/zpshde.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 33 33 !!---------------------------------------------------------------------- 34 34 !! OPA 9.0 , LOCEAN-IPSL (2005) 35 !! $ Id$35 !! $Header$ 36 36 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 37 37 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/ZDF/zdf.matrixsolver.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 26 26 !!---------------------------------------------------------------------- 27 27 !! OPA 9.0 , LOCEAN-IPSL (2005) 28 !! $ Id$28 !! $Header$ 29 29 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 30 30 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/ZDF/zdf.matrixsolver.vopt.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 26 26 !!---------------------------------------------------------------------- 27 27 !! OPA 9.0 , LOCEAN-IPSL (2005) 28 !! $ Id$28 !! $Header$ 29 29 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 30 30 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/ZDF/zdf_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 9 9 !!---------------------------------------------------------------------- 10 10 !! OPA 9.0 , LOCEAN-IPSL (2005) 11 !! $ Id$11 !! $Header$ 12 12 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 13 13 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/ZDF/zdfddm.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 12 12 !!---------------------------------------------------------------------- 13 13 !! OPA 9.0 , LOCEAN-IPSL (2005) 14 !! $ Id$14 !! $Header$ 15 15 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 16 16 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/ZDF/zdfini.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 9 9 !!---------------------------------------------------------------------- 10 10 !! OPA 9.0 , LOCEAN-IPSL (2005) 11 !! $ Id$11 !! $Header$ 12 12 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 13 13 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/ZDF/zdfmxl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 39 39 !!---------------------------------------------------------------------- 40 40 !! OPA 9.0 , LOCEAN-IPSL (2005) 41 !! $ Id$41 !! $Header$ 42 42 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 43 43 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/ctlopn.f90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 35 35 !!---------------------------------------------------------------------- 36 36 !! OPA 9.0 , LOCEAN-IPSL (2005) 37 !! $ Id$37 !! $Header$ 38 38 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 39 39 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/daymod.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 33 33 !!---------------------------------------------------------------------- 34 34 !! OPA 9.0 , LOCEAN-IPSL (2005) 35 !! $ Id$35 !! $Header$ 36 36 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 37 37 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/dtadyn.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 67 67 vdta , & ! meridional velocity at two consecutive times 68 68 wdta , & ! vertical velocity at two consecutive times 69 #if defined key_trc_diatrd 70 hdivdta, & ! horizontal divergence 71 #endif 69 72 avtdta ! vertical diffusivity coefficient 73 70 74 71 75 #if defined key_ldfslp … … 120 124 !!---------------------------------------------------------------------- 121 125 !! OPA 9.0 , LOCEAN-IPSL (2005) 122 !! $ Id$126 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OFF_SRC/dtadyn.F90,v 1.8 2007/10/12 09:05:29 opalod Exp $ 123 127 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 124 128 !!---------------------------------------------------------------------- … … 319 323 vdta(:,:,:,1)=vdta(:,:,:,2) 320 324 wdta(:,:,:,1)=wdta(:,:,:,2) 325 #if defined key_trc_diatrd 326 hdivdta(:,:,:,1)=hdivdta(:,:,:,2) 327 #endif 321 328 avtdta(:,:,:,1)=avtdta(:,:,:,2) 322 329 tdta(:,:,:,1)=tdta(:,:,:,2) … … 412 419 udta(:,:,:,1) = udta(:,:,:,2) 413 420 vdta(:,:,:,1) = vdta(:,:,:,2) 414 wdta(:,:,:,1)= wdta(:,:,:,2) 421 wdta(:,:,:,1) = wdta(:,:,:,2) 422 #if defined key_trc_diatrd 423 hdivdta(:,:,:,1)=hdivdta(:,:,:,2) 424 #endif 415 425 avtdta(:,:,:,1) = avtdta(:,:,:,2) 416 426 tdta(:,:,:,1) = tdta(:,:,:,2) … … 508 518 vn(:,:,:)=vdta(:,:,:,2) 509 519 wn(:,:,:)=wdta(:,:,:,2) 520 #if defined key_trc_diatrd 521 hdivn(:,:,:)=hdivdta(:,:,:,2) 522 #endif 510 523 #if defined key_trc_zdfddm 511 524 avs(:,:,:)=avtdta(:,:,:,2) … … 570 583 vn(:,:,:) = zweighm1 * vdta(:,:,:,1) + zweigh * vdta(:,:,:,2) 571 584 wn(:,:,:) = zweighm1 * wdta(:,:,:,1) + zweigh * wdta(:,:,:,2) 585 #if defined key_trc_diatrd 586 hdivn(:,:,:) = zweighm1 * hdivdta(:,:,:,1) + zweigh * hdivdta(:,:,:,2) 587 #endif 572 588 #if defined key_zdfddm 573 589 avs(:,:,:)= zweighm1 * avtdta(:,:,:,1) + zweigh * avtdta(:,:,:,2) … … 745 761 CALL iom_get ( numfl_t, jpdom_data, 'vosaline', zs (:,:,:), jkenr ) 746 762 CALL iom_get ( numfl_t, jpdom_data, 'somixhgt', zmld (:,: ), jkenr ) 747 CALL iom_get ( numfl_t, jpdom_data, 'sowafl up', zemp (:,: ), jkenr )763 CALL iom_get ( numfl_t, jpdom_data, 'sowaflcd', zemp (:,: ), jkenr ) 748 764 CALL iom_get ( numfl_t, jpdom_data, 'soshfldo', zqsr (:,: ), jkenr ) 749 765 CALL iom_get ( numfl_t, jpdom_data, 'soicecov', zice (:,: ), jkenr ) … … 850 866 zw(:,:,jk) = zw(:,:,jk+1) - fse3t(:,:,jk) * zhdiv(:,:,jk) 851 867 END DO 868 852 869 wdta(:,:,:,2) = zw(:,:,:) * tmask(:,:,:) 853 870 #if defined key_trc_diatrd 871 hdivdta(:,:,:,2) = zhdiv(:,:,:) * tmask(:,:,:) 872 #endif 854 873 855 874 tdta(:,:,:,2) = zt(:,:,:) * tmask(:,:,:) -
branches/dev_001_SBC/NEMO/OFF_SRC/eosbn2.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 51 51 !!---------------------------------------------------------------------- 52 52 !! OPA 9.0 , LOCEAN-IPSL (2005) 53 !! $ Id$53 !! $Header$ 54 54 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 55 55 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/istate.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 28 28 !!---------------------------------------------------------------------- 29 29 !! OPA 9.0 , LOCEAN-IPSL (2005) 30 !! $ Id$30 !! $Header$ 31 31 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 32 32 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/lbclnk.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 93 93 !!---------------------------------------------------------------------- 94 94 !! OPA 9.0 , LOCEAN-IPSL (2005) 95 !! $ Id$95 !! $Header$ 96 96 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 97 97 !!---------------------------------------------------------------------- … … 361 361 !!---------------------------------------------------------------------- 362 362 !! OPA 9.0 , LOCEAN-IPSL (2005) 363 !! $ Id$363 !! $Header$ 364 364 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 365 365 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/lib_cray.f90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 10 10 !!---------------------------------------------------------------------- 11 11 !! OPA 9.0 , LOCEAN-IPSL (2005) 12 !! $ Id$12 !! $Header$ 13 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 14 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/lib_isml.f90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 15 15 !!---------------------------------------------------------------------- 16 16 !! OPA 9.0 , LOCEAN-IPSL (2005) 17 !! $ Id$17 !! $Header$ 18 18 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 19 19 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/lib_mpp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 47 47 !!---------------------------------------------------------------------- 48 48 !! OPA 9.0 , LOCEAN-IPSL (2005) 49 !! $ Id$49 !! $Header$ 50 50 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 51 51 !!--------------------------------------------------------------------- … … 266 266 !!---------------------------------------------------------------------- 267 267 !! OPA 9.0 , LOCEAN-IPSL (2005) 268 !! $ Id$268 !! $Header$ 269 269 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 270 270 !!--------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/lib_print.f90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 21 21 !!---------------------------------------------------------------------- 22 22 !! OPA 9.0 , LOCEAN-IPSL (2005) 23 !! $ Id$23 !! $Header$ 24 24 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 25 25 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/model.f90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 13 13 !!---------------------------------------------------------------------- 14 14 !! OPA 9.0 , LOCEAN-IPSL (2005) 15 !! $ Id$15 !! $Header$ 16 16 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 17 17 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/mppini.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 29 29 !!---------------------------------------------------------------------- 30 30 !! OPA 9.0 , LOCEAN-IPSL (2005) 31 !! $ Id$31 !! $Header$ 32 32 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 33 33 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/mppini_2.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 71 71 !!---------------------------------------------------------------------- 72 72 !! OPA 9.0 , LOCEAN-IPSL (2005) 73 !! $ Id$73 !! $Header$ 74 74 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 75 75 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!---------------------------------------------------------------------- 9 9 !! OPA 9.0 , LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header$ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/ocfzpt.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 22 22 !!---------------------------------------------------------------------- 23 23 !! OPA 9.0 , LOCEAN-IPSL (2005) 24 !! $ Id$24 !! $Header$ 25 25 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 26 26 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/opa.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 39 39 !!---------------------------------------------------------------------- 40 40 !! OPA 9.0 , LOCEAN-IPSL (2005) 41 !! $ Id$41 !! $Header$ 42 42 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 43 43 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_EEL_R2.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!---------------------------------------------------------------------- 6 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_EEL_R5.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!---------------------------------------------------------------------- 6 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_EEL_R6.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!---------------------------------------------------------------------- 6 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_GYRE.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!---------------------------------------------------------------------- 6 6 !! OPA 9.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_ORCA_R025.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!---------------------------------------------------------------------- 7 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_ORCA_R05.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!---------------------------------------------------------------------- 7 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_ORCA_R2.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!---------------------------------------------------------------------- 7 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_ORCA_R4.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!---------------------------------------------------------------------- 7 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_kind.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!---------------------------------------------------------------------- 9 9 !! OPA 9.0 , LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header$ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/par_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 9 9 !!---------------------------------------------------------------------- 10 10 !! OPA 9.0 , LOCEAN-IPSL (2005) 11 !! $ Id$11 !! $Header$ 12 12 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 13 13 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/phycst.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 72 72 !!---------------------------------------------------------------------- 73 73 !! OPA 9.0 , LOCEAN-IPSL (2005) 74 !! $ Id$74 !! $Header$ 75 75 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 76 76 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/prtctl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 32 32 !!---------------------------------------------------------------------- 33 33 !! OPA 9.0 , LOCEAN-IPSL (2005) 34 !! $ Id$34 !! $Header$ 35 35 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 36 36 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/step.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 33 33 !!---------------------------------------------------------------------- 34 34 !! OPA 9.0 , LOCEAN-IPSL (2005) 35 !! $ Id$35 !! $Header$ 36 36 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 37 37 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/stpctl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 47 47 !!---------------------------------------------------------------------- 48 48 !! OPA 9.0 , LOCEAN-IPSL (2005) 49 !! $ Id$49 !! $Header$ 50 50 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 51 51 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/OFF_SRC/vectopt_loop_substitute.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 7 7 !!---------------------------------------------------------------------- 8 8 !! OPA 9.0 , LOCEAN-IPSL (2005) 9 !! $ Id$9 !! $Header$ 10 10 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 11 11 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zbio.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zbio.kriest.h
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 CC---------------------------------------------------------------------- 2 CC TOP 1.0 , LOCEAN-IPSL (2005) 3 CC $Id$ 4 CC This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 CC---------------------------------------------------------------------- 1 6 2 7 3 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zbio.std.h
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 CC----------------------------------------------------------------------2 CC TOP 1.0 , LOCEAN-IPSL (2005)3 CC $Id$4 CC This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 CC----------------------------------------------------------------------6 7 1 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 8 2 CCC p4zbio : PISCES MODEL - Standard parameterization -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zche.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zday.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 CCC$ Id$1 CCC$Header$ 2 2 CCC TOP 1.0 , LOCEAN-IPSL (2005) 3 3 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zdiat.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zflx.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zint.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zlim.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zlys.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zmeso.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/p4zmeso.F,v 1.8 2007/10/12 09:32:52 opalod Exp $ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zmicro.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4znano.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zopt.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zprg.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zprod.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zrem.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/p4zrem.F,v 1.8 2007/10/12 09:28:41 opalod Exp $ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt … … 50 50 REAL zsatur,zsatur2,znusil,zdepbac(jpi,jpj,jpk) 51 51 REAL zlamfac,zstep,fesatur(jpi,jpj,jpk) 52 REAL ztempbac(jpi,jpj) 52 53 C 53 54 C Time step duration for the biology … … 59 60 C -------------------------------------------------- 60 61 C 61 DO jk=1,12 62 zdepbac(:,:,jk)=min(0.7*(trn(:,:,jk,jpzoo)+2*trn(:,:,jk,jpmes)) 63 & ,4E-6) 62 DO jk=1,jpkm1 63 DO jj = 1, jpj 64 DO ji = 1, jpi 65 IF (fsdept(ji,jj,jk).lt.120.) THEN 66 zdepbac(ji,jj,jk)=min(0.7*(trn(ji,jj,jk,jpzoo) 67 & +2*trn(ji,jj,jk,jpmes)),4E-6) 68 ztempbac(ji,jj)=zdepbac(ji,jj,jk) 69 ELSE 70 zdepbac(ji,jj,jk)=min(1.,120./fsdept(ji,jj,jk)) 71 & *ztempbac(ji,jj) 72 ENDIF 73 END DO 74 END DO 64 75 END DO 65 C66 C Vertical decay of the bacterial activity67 C ----------------------------------------68 C69 do jk=13,jpk70 do jj=1,jpj71 do ji=1,jpi72 zdepbac(ji,jj,jk)=min(1.,fsdept(ji,jj,12)/fsdept(ji,jj,jk))73 & *zdepbac(ji,jj,12)74 end do75 end do76 end do77 76 78 77 DO jk = 1,jpkm1 … … 253 252 zlamfac=min(1.,zlamfac) 254 253 #if ! defined key_trc_kriest 255 xlam1b=(80.*(trn(ji,jj,jk,jpdoc)+ 40E-6)+698.254 xlam1b=(80.*(trn(ji,jj,jk,jpdoc)+35E-6)+698. 256 255 & *trn(ji,jj,jk,jppoc)+1.05E4*trn(ji,jj,jk,jpgoc)) 257 & *zdiss(ji,jj,jk)+1E- 5*(1.-zlamfac)+xlam1*max(0.,256 & *zdiss(ji,jj,jk)+1E-4*(1.-zlamfac)+xlam1*max(0., 258 257 & (trn(ji,jj,jk,jpfer)*1E9-1.)) 259 258 #else 260 xlam1b=(80.*(trn(ji,jj,jk,jpdoc)+ 40E-6)+698.259 xlam1b=(80.*(trn(ji,jj,jk,jpdoc)+35E-6)+698. 261 260 & *trn(ji,jj,jk,jppoc)) 262 & *zdiss(ji,jj,jk)+1E- 5*(1.-zlamfac)+xlam1*max(0.,261 & *zdiss(ji,jj,jk)+1E-4*(1.-zlamfac)+xlam1*max(0., 263 262 & (trn(ji,jj,jk,jpfer)*1E9-1.)) 264 263 #endif 265 264 266 265 267 xaggdfe(ji,jj,jk)=xlam1b*zstep*0. 76*(trn(ji,jj,jk,jpfer)266 xaggdfe(ji,jj,jk)=xlam1b*zstep*0.5*(trn(ji,jj,jk,jpfer) 268 267 & -xfeequi) 269 268 # if defined key_off_degrad -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zsed.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/p4zsed.F,v 1.9 2007/10/12 09:35:04 opalod Exp $ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt … … 102 102 & +(rivinp(ji,jj)+nitdep(ji,jj))*rfact2 103 103 trn(ji,jj,1,jpfer) = trn(ji,jj,1,jpfer) 104 & +rivinp(ji,jj)* 9E-5*rfact2104 & +rivinp(ji,jj)*3E-5*rfact2 105 105 trn(ji,jj,1,jpsil) = trn(ji,jj,1,jpsil) 106 106 & +sidep(ji,jj)+cotdep(ji,jj)*rfact2/6. … … 140 140 C ------------------------------------------------------------- 141 141 C 142 DO jj= 2,jpjm1143 DO ji= 2,jpim1142 DO jj=1,jpj 143 DO ji=1,jpi 144 144 ikt=max(mbathy(ji,jj)-1,1) 145 zfact=e1t(ji,jj)*e2t(ji,jj)/rjjss 145 zfact=e1t(ji,jj)*e2t(ji,jj)/rjjss*tmask_i(ji,jj) 146 146 sumsedsi=sumsedsi+zfact*trn(ji,jj,ikt,jpdsi) 147 147 #if ! defined key_trc_kriest … … 152 152 sumsedcal=sumsedcal+trn(ji,jj,ikt,jpcal)*wscal(ji,jj,ikt) 153 153 & *2.*zfact 154 #if defined key_trc_kriest 154 155 sumsedpo4=sumsedpo4+ 155 156 & (trn(ji,jj,ikt,jppoc)*wsbio3(ji,jj,ikt))*zfact 157 #else 158 sumsedpo4=sumsedpo4+(trn(ji,jj,ikt,jpgoc)*wsbio4(ji,jj,ikt) 159 & +trn(ji,jj,ikt,jppoc)*wsbio3(ji,jj,ikt))*zfact 160 #endif 156 161 END DO 157 162 END DO … … 246 251 DO ji=2,jpi-1 247 252 denitot=denitot+denitr(ji,jj,jk)*rdenit*e1t(ji,jj)*e2t(ji,jj) 248 & *fse3t(ji,jj,jk)*tmask(ji,jj,jk)*znegtr(ji,jj,jk) 253 & *fse3t(ji,jj,jk)*tmask(ji,jj,jk)*tmask_i(ji,jj) 254 & *znegtr(ji,jj,jk) 249 255 END DO 250 256 END DO … … 274 280 nitrpottot=0. 275 281 DO jk=1,jpkm1 276 DO jj= 2,jpj-1277 DO ji= 2,jpi-1282 DO jj=1,jpj 283 DO ji=1,jpi 278 284 nitrpottot=nitrpottot+nitrpot(ji,jj,jk)*e1t(ji,jj) 279 & *e2t(ji,jj)*tmask(ji,jj,jk)* fse3t(ji,jj,jk)285 & *e2t(ji,jj)*tmask(ji,jj,jk)*tmask_i(ji,jj)*fse3t(ji,jj,jk) 280 286 END DO 281 287 END DO -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zsink.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 28 28 CC original : 2004 - O. Aumont 29 29 CC---------------------------------------------------------------------- 30 31 CC----------------------------------------------------------------------32 CC TOP 1.0 , LOCEAN-IPSL (2005)33 CC $Id$34 CC This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt35 CC----------------------------------------------------------------------36 37 30 CC parameters and commons 38 31 CC ====================== -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zsink.kriest.h
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 CC----------------------------------------------------------------------2 CC TOP 1.0 , LOCEAN-IPSL (2005)3 CC $Id$4 CC This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 CC----------------------------------------------------------------------6 7 1 CCCCCC PISCES MODEL: Kriest parameterization 8 2 CDIR$ LIST -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zsink.std.h
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 CC----------------------------------------------------------------------2 CC TOP 1.0 , LOCEAN-IPSL (2005)3 CC $Id$4 CC This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt5 CC----------------------------------------------------------------------6 1 7 2 CDIR$ LIST … … 33 28 DO jj=1,jpj 34 29 DO ji=1,jpi 35 zfact=max(0.,fsdepw(ji,jj,jk+1)-hmld(ji,jj))/ 2000.30 zfact=max(0.,fsdepw(ji,jj,jk+1)-hmld(ji,jj))/4000. 36 31 wsbio4(ji,jj,jk)=wsbio2+(200.-wsbio2)*zfact 37 32 END DO … … 105 100 C ---------------------------------------------- 106 101 C 107 xagg3=0.66*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jp poc)102 xagg3=0.66*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jpgoc) 108 103 # if defined key_off_degrad 109 104 & *facvol(ji,jj,jk) 110 105 # endif 111 106 112 xagg4=0.*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jp goc)107 xagg4=0.*zstep*trn(ji,jj,jk,jppoc)*trn(ji,jj,jk,jppoc) 113 108 # if defined key_off_degrad 114 109 & *facvol(ji,jj,jk) -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zsink2.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/p4zslow.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header$ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/par_sms.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 12 12 !!---------------------------------------------------------------------- 13 13 !! TOP 1.0 , LOCEAN-IPSL (2005) 14 !! $ Id$14 !! $Header$ 15 15 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 16 16 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/par_sms_cfc.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!---------------------------------------------------------------------- 7 7 !! TOP 1.0 , LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/par_sms_lobster1.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 20 20 !!---------------------------------------------------------------------- 21 21 !! TOP 1.0, LOCEAN-IPSL (2005) 22 !! $ Id$22 !! $Header$ 23 23 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 24 24 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/par_sms_pisces.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 3 3 !! pisces model : assign a parameter to name individual tracers 4 4 !!====================================================================== 5 6 !!----------------------------------------------------------------------7 !! TOP 1.0 , LOCEAN-IPSL (2005)8 !! $Id$9 !! This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt10 !!----------------------------------------------------------------------11 5 12 6 INTEGER, PARAMETER :: jpdiabio = 1 -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/sms.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!---------------------------------------------------------------------- 9 9 !! TOP 1.0 , LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header$ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/sms_cfc.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!---------------------------------------------------------------------- 7 7 !! TOP 1.0 , LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/sms_lobster1.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 16 16 !!--------------------------------------------------------------------- 17 17 !! TOP 1.0 , LOCEAN-IPSL (2005) 18 !! $ Id$18 !! $Header$ 19 19 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 20 20 !!--------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/sms_pisces.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 13 13 !! 14 14 !! 15 !!----------------------------------------------------------------------16 !! TOP 1.0 , LOCEAN-IPSL (2005)17 !! $Id$18 !! This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt19 !!----------------------------------------------------------------------20 21 15 #if defined key_trc_pisces 22 16 !! … … 72 66 REAL(wp), DIMENSION(jpi,jpj,jpk) :: & 73 67 sio3eq, fekeq 74 !!75 !!----------------------------------------------------------------------76 !!77 !! Variable for simplified sediments78 !!79 !! ---------------------------------------------------------------------80 !!81 REAL(wp), DIMENSION(jpi,jpj) :: &82 sedpoc, sedcal, sedsil83 84 REAL(wp) :: &85 sedlam,sedlostpoc, sedlostsil,sedlostcal86 87 68 88 69 !! -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcbio.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 2 CCC $ Id$2 CCC $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/trcbio.F,v 1.9 2007/10/12 09:36:28 opalod Exp $ 3 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt … … 98 98 #if defined key_trc_diaadd 99 99 REAL ze3t(jpi,jpj,jpk) 100 endif100 #endif 101 101 REAL zdet,zzoo,zphy,zno3,znh4,zdom,zlno3,zlnh4,zle,zlt 102 102 REAL zno3phy, znh4phy, zphynh4, zphydom, zphydet, zphyzoo, zdetzoo -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcctl.cfc.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 !!---------------------------------------------------------------------- 2 !! TOP 1.0 , LOCEAN-IPSL (2005) 3 !! $Id$ 4 !! This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 !!---------------------------------------------------------------------- 1 ! $Id$ 6 2 !!! 7 3 !!! Modifications: -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcctl.lobster1.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 1 !!---------------------------------------------------------------------- 2 2 !! TOP 1.0, LOCEAN-IPSL (2005) 3 !! $ Id$3 !! $Header$ 4 4 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 5 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcctl.pisces.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 2 2 !!---------------------------------------------------------------------- 3 3 !! TOP 1.0 , LOCEAN-IPSL (2005) 4 !! $ Id$4 !! $Header$ 5 5 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 6 6 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcexp.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 CCC $ Id$1 CCC $Header$ 2 2 SUBROUTINE trcexp(kt) 3 3 #if defined key_passivetrc && defined key_trc_lobster1 -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcfreons.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 40 40 !!---------------------------------------------------------------------- 41 41 !! TOP 1.0 , LOCEAN-IPSL (2005) 42 !! $ Id$42 !! $Header$ 43 43 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 44 44 !!---------------------------------------------------------------------- … … 241 241 !!--------------------------------------------------------------------- 242 242 !! TOP 1.0 , LOCEAN-IPSL (2005) 243 !! $ Id$243 !! $Header$ 244 244 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 245 245 !!---------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcini.cfc.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 27 27 !!--------------------------------------------------------------------- 28 28 !! TOP 1.0 , LOCEAN-IPSL (2005) 29 !! $ Id$29 !! $Header$ 30 30 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 31 31 !!--------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcini.lobster1.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 21 21 !!---------------------------------------------------------------------- 22 22 !! TOP 1.0 , LOCEAN-IPSL (2005) 23 !! $ Id$23 !! $Header$ 24 24 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 25 25 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcini.pisces.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 37 37 !!---------------------------------------------------------------------- 38 38 !! TOP 1.0 , LOCEAN-IPSL (2005) 39 !! $ Id$39 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/trcini.pisces.h90,v 1.9 2007/10/12 09:35:04 opalod Exp $ 40 40 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 41 41 !!---------------------------------------------------------------------- … … 169 169 DO ji = 2, jpim1 170 170 sumdepsi = sumdepsi + dustmo(ji,jj,jm)/(12.*rmoss)*8.8 & 171 *0.075/28.1*e1t(ji,jj)*e2t(ji,jj)*tmask(ji,jj,1) 171 *0.075/28.1*e1t(ji,jj)*e2t(ji,jj)*tmask(ji,jj,1)*tmask_i(ji,jj) 172 172 END DO 173 173 END DO … … 200 200 DO ji=2,jpim1 201 201 rivpo4input=rivpo4input+rivinp(ji,jj)*(e1t(ji,jj)*e2t(ji,jj) & 202 *fse3t(ji,jj,1))*tmask(ji,jj,1)* raass202 *fse3t(ji,jj,1))*tmask(ji,jj,1)*tmask_i(ji,jj)*raass 203 203 rivalkinput=rivalkinput+cotdep(ji,jj)*(e1t(ji,jj)*e2t(ji,jj) & 204 *fse3t(ji,jj,1))*tmask(ji,jj,1)* raass204 *fse3t(ji,jj,1))*tmask(ji,jj,1)*tmask_i(ji,jj)*raass 205 205 nitdepinput=nitdepinput+nitdep(ji,jj)*(e1t(ji,jj)*e2t(ji,jj) & 206 *fse3t(ji,jj,1))*tmask(ji,jj,1)* raass206 *fse3t(ji,jj,1))*tmask(ji,jj,1)*tmask_i(ji,jj)*raass 207 207 END DO 208 208 END DO -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trclsm.cfc.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 19 19 !!---------------------------------------------------------------------- 20 20 !! TOP 1.0 , LOCEAN-IPSL (2005) 21 !! $ Id$21 !! $Header$ 22 22 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 23 23 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trclsm.lobster1.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 27 27 !!--------------------------------------------------------------------- 28 28 !! TOP 1.0 , LOCEAN-IPSL (2005) 29 !! $ Id$29 !! $Header$ 30 30 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 31 31 !!--------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trclsm.pisces.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 27 27 !!--------------------------------------------------------------------- 28 28 !! TOP 1.0 , LOCEAN-IPSL (2005) 29 !! $ Id$29 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/trclsm.pisces.h90,v 1.7 2007/10/17 14:50:13 opalod Exp $ 30 30 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 31 31 !!--------------------------------------------------------------------- … … 36 36 NAMELIST/natext/ atcco2 37 37 NAMELIST/natbio/caco3r, kdca, nca, part, & 38 & dispo0,conc0,oxymin,grosip, sedlam, & 39 & sedlostpoc,sedlostcal,sedlostsil,nrdttrc, & 38 & dispo0,conc0,oxymin,grosip, nrdttrc, & 40 39 & pislope, excret,wsbio,wchl,wchld,resrat,mprat,mzrat, & 41 40 & grazrat,xprefc,xprefp,unass,xkgraz,xkmort,xksi1, & … … 102 101 & ' Phosphate half saturation =', conc0 103 102 WRITE(numout,*) & 104 & ' Sediment bioturbation factor =', sedlam105 WRITE(numout,*) &106 & ' Sediment burying ratio for POC =', sedlostpoc107 WRITE(numout,*) &108 & ' Sediment burying ratio for CACO3 =', sedlostcal109 WRITE(numout,*) &110 & ' Sediment burying ratio for SI =', sedlostsil111 WRITE(numout,*) &112 103 & ' frequence pour la biologie =', nrdttrc 113 104 WRITE(numout,*) & -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcopt.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 CC $ Id$1 CC $Header$ 2 2 CDIR$ LIST 3 3 SUBROUTINE trcopt(kt) -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trcsed.F
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 1 CC $ Id$1 CC $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/SMS/trcsed.F,v 1.7 2007/10/12 09:36:28 opalod Exp $ 2 2 CDIR$ LIST 3 3 SUBROUTINE trcsed(kt) … … 89 89 #if defined key_trc_diaadd 90 90 REAL ze3t(jpi,jpj,jpk) 91 endif91 #endif 92 92 CC---------------------------------------------------------------------- 93 93 CC statement functions -
branches/dev_001_SBC/NEMO/TOP_SRC/SMS/trp_trc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!====================================================================== 7 7 !! TOP 1.0, LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcadv_cen2.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 26 26 !!---------------------------------------------------------------------- 27 27 !! TOP 1.0 , LOCEAN-IPSL (2005) 28 !! $ Id$28 !! $Header$ 29 29 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 30 30 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcadv_muscl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 27 27 !!---------------------------------------------------------------------- 28 28 !! TOP 1.0 , LOCEAN-IPSL (2005) 29 !! $ Id$29 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcadv_muscl.F90,v 1.13 2007/10/12 09:26:30 opalod Exp $ 30 30 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 31 31 !!---------------------------------------------------------------------- … … 103 103 104 104 DO jn = 1, jptra 105 105 #if defined key_trc_diatrd 106 DO jk = 1,jpk 107 DO jj = 1,jpj 108 DO ji = 1,jpi 109 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),1) = 0. 110 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),2) = 0. 111 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),3) = 0. 112 END DO 113 END DO 114 END DO 115 #endif 106 116 ! I. Horizontal advective fluxes 107 117 ! ------------------------------ -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 30 30 !!---------------------------------------------------------------------- 31 31 !! TOP 1.0 , LOCEAN-IPSL (2005) 32 !! $ Id$32 !! $Header$ 33 33 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 34 34 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcadv_smolar.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 31 31 !!---------------------------------------------------------------------- 32 32 !! TOP 1.0 , LOCEAN-IPSL (2005) 33 !! $ Id$33 !! $Header$ 34 34 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 35 35 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcadv_tvd.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 28 28 !!---------------------------------------------------------------------- 29 29 !! TOP 1.0 , LOCEAN-IPSL (2005) 30 !! $ Id$30 !! $Header$ 31 31 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 32 32 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcbbc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 41 41 !!---------------------------------------------------------------------- 42 42 !! TOP 1.0 , LOCEAN-IPSL (2005) 43 !! $ Id$43 !! $Header$ 44 44 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 45 45 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcbbl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 61 61 !!---------------------------------------------------------------------- 62 62 !! TOP 1.0 , LOCEAN-IPSL (2005) 63 !! $ Id$63 !! $Header$ 64 64 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 65 65 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcbbl_adv.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!---------------------------------------------------------------------- 6 6 !! TOP 1.0 , LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcdmp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 37 37 !!---------------------------------------------------------------------- 38 38 !! TOP 1.0 , LOCEAN-IPSL (2005) 39 !! $ Id$39 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcdmp.F90,v 1.12 2007/10/12 09:26:30 opalod Exp $ 40 40 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 41 41 !!---------------------------------------------------------------------- … … 108 108 # if defined key_trc_diatrd 109 109 ! save the trends for diagnostics 110 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),jpdiatrc ) = ztra110 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),jpdiatrc-1) = ztra 111 111 # endif 112 112 END DO … … 129 129 # if defined key_trc_diatrd 130 130 ! save the trends for diagnostics 131 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),jpdiatrc ) = ztra131 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),jpdiatrc-1) = ztra 132 132 # endif 133 133 END DO … … 149 149 # if defined key_trc_diatrd 150 150 ! save the trends for diagnostics 151 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),jpdiatrc ) = ztra151 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),jpdiatrc-1) = ztra 152 152 # endif 153 153 END DO -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcldf_bilap.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 25 25 !!---------------------------------------------------------------------- 26 26 !! TOP 1.0 , LOCEAN-IPSL (2005) 27 !! $ Id$27 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcldf_bilap.F90,v 1.12 2007/10/12 09:26:30 opalod Exp $ 28 28 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 29 29 !!---------------------------------------------------------------------- … … 148 148 ikv = MIN ( mbathy(ji,jj), mbathy(ji ,jj+1) ) - 1 149 149 IF( iku == jk ) THEN 150 ztu(ji,jj,jk) = zeeu(ji,jj) * gtru(ji,jj )150 ztu(ji,jj,jk) = zeeu(ji,jj) * gtru(ji,jj,jn) 151 151 ENDIF 152 152 IF( ikv == jk ) THEN 153 ztv(ji,jj,jk) = zeev(ji,jj) * gtrv(ji,jj )153 ztv(ji,jj,jk) = zeev(ji,jj) * gtrv(ji,jj,jn) 154 154 ENDIF 155 155 END DO -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcldf_bilapg.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 28 28 !!---------------------------------------------------------------------- 29 29 !! TOP 1.0 , LOCEAN-IPSL (2005) 30 !! $ Id$30 !! $Header$ 31 31 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 32 32 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcldf_iso.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 27 27 !!---------------------------------------------------------------------- 28 28 !! TOP 1.0 , LOCEAN-IPSL (2005) 29 !! $ Id$29 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcldf_iso.F90,v 1.10 2007/10/12 09:26:30 opalod Exp $ 30 30 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 31 31 !!---------------------------------------------------------------------- … … 95 95 REAL(wp), DIMENSION(jpi,jpj) :: & 96 96 zftug, zftvg 97 98 #if defined key_trc_diatrd 99 REAL(wp) :: & 100 ztagu, ztagv 101 #endif 102 97 103 #endif 98 104 … … 202 208 END DO 203 209 END DO 210 211 #if defined key_trc_diatrd 212 # if defined key_trcldf_eiv 213 DO jj = 2 , jpjm1 214 DO ji = fs_2, fs_jpim1 ! vector opt. 215 zbtr= 1. / ( e1t(ji,jj) * e2t(ji,jj) * fse3t(ji,jj,jk) ) 216 ztagu = ( zftug(ji,jj) - zftug(ji-1,jj ) ) * zbtr 217 ztagv = ( zftvg(ji,jj) - zftvg(ji ,jj-1) ) * zbtr 218 IF (luttrd(jn)) trtrd (ji,jj,jk,ikeep(jn),4) = trtrd(ji,jj,jk,ikeep(jn),4) - ztagu 219 IF (luttrd(jn)) trtrd (ji,jj,jk,ikeep(jn),5) = trtrd(ji,jj,jk,ikeep(jn),5) - ztagv 220 IF (luttrd(jn)) trtrd (ji,jj,jk,ikeep(jn),7) = ztagu 221 IF (luttrd(jn)) trtrd (ji,jj,jk,ikeep(jn),8) = ztagv 222 END DO 223 END DO 224 # endif 225 #endif 226 204 227 ! ! =============== 205 228 END DO ! End of slab -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 26 26 !!---------------------------------------------------------------------- 27 27 !! TOP 1.0 , LOCEAN-IPSL (2005) 28 !! $ Id$28 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90,v 1.11 2007/10/12 09:26:30 opalod Exp $ 29 29 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 30 30 !!---------------------------------------------------------------------- … … 85 85 REAL(wp) :: & 86 86 zabe1, zabe2, zcof1, zcof2, & ! temporary scalars 87 zmsku, zmskv, zbtr, ztra, & 88 ztagu, ztagv 87 zmsku, zmskv, zbtr, ztra 89 88 90 89 REAL(wp), DIMENSION(jpi,jpj) :: & … … 102 101 zuwk1, zvwk1, & 103 102 zcg1,zcg2 103 104 #if defined key_trc_diatrd 105 REAL(wp) :: & 106 ztagu, ztagv 107 #endif 108 104 109 #endif 105 110 CHARACTER (len=22) :: charout … … 118 123 DO jn = 1, jptra 119 124 125 #if defined key_trcldf_eiv && key_trc_diatrd 120 126 ztagu = 0.e0 121 127 ztagv = 0.e0 128 #endif 122 129 123 130 ! Horizontal passive tracer gradient … … 234 241 IF (luttrd(jn)) trtrd (ji,jj,jk,ikeep(jn),4) = trtrd(ji,jj,jk,ikeep(jn),4) - ztagu 235 242 IF (luttrd(jn)) trtrd (ji,jj,jk,ikeep(jn),5) = trtrd(ji,jj,jk,ikeep(jn),5) - ztagv 243 IF (luttrd(jn)) trtrd (ji,jj,jk,ikeep(jn),7) = ztagu 244 IF (luttrd(jn)) trtrd (ji,jj,jk,ikeep(jn),8) = ztagv 236 245 END DO 237 246 END DO -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcldf_lap.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 24 24 !!---------------------------------------------------------------------- 25 25 !! TOP 1.0 , LOCEAN-IPSL (2005) 26 !! $ Id$26 !! $Header$ 27 27 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 28 28 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcnxt.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 24 24 !!---------------------------------------------------------------------- 25 25 !! TOP 1.0 , LOCEAN-IPSL (2005) 26 !! $ Id$26 !! $Header$ 27 27 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 28 28 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcrad.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 23 23 !!---------------------------------------------------------------------- 24 24 !! TOP 1.0 , LOCEAN-IPSL (2005) 25 !! $ Id$25 !! $Header$ 26 26 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 27 27 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcsbc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 24 24 !!---------------------------------------------------------------------- 25 25 !! TOP 1.0 , LOCEAN-IPSL (2005) 26 !! $ Id$26 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcsbc.F90,v 1.10 2007/10/12 09:26:30 opalod Exp $ 27 27 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 28 28 !!---------------------------------------------------------------------- … … 74 74 zsrau = 1. / rauw 75 75 IF( .NOT. ln_sco ) zse3t = 1. / fse3t(1,1,1) 76 #if defined key_trc_diatrd 77 DO jn = 1, jptra 78 IF (luttrd(jn)) trtrd(:,:,:,ikeep(jn),jpdiatrc) = 0.0 79 END DO 80 #endif 76 81 77 82 DO jn = 1, jptra … … 85 90 ! add the trend to the general tracer trend 86 91 tra(ji,jj,1,jn) = tra(ji,jj,1,jn) + ztra 92 #if defined key_trc_diatrd 93 IF (luttrd(jn)) trtrd(ji,jj,1,ikeep(jn),jpdiatrc) = trtrd(ji,jj,1,jn,jpdiatrc)+ztra 94 #endif 87 95 END DO 88 96 END DO -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trcstp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 25 25 !!---------------------------------------------------------------------- 26 26 !! TOP 1.0 , LOCEAN-IPSL (2005) 27 !! $ Id$27 !! $Header$ 28 28 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 29 29 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trctrp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 51 51 !!---------------------------------------------------------------------- 52 52 !! TOP 1.0 , LOCEAN-IPSL (2005) 53 !! $ Id$53 !! $Header$ 54 54 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 55 55 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trctrp_ctl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 28 28 !!---------------------------------------------------------------------- 29 29 !! TOP 1.0 , LOCEAN-IPSL (2005) 30 !! $ Id$30 !! $Header$ 31 31 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 32 32 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trctrp_lec.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 75 75 !!---------------------------------------------------------------------- 76 76 !! TOP 1.0 , LOCEAN-IPSL (2005) 77 !! $ Id$77 !! $Header$ 78 78 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 79 79 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trczdf_exp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 30 30 !!---------------------------------------------------------------------- 31 31 !! TOP 1.0 , LOCEAN-IPSL (2005) 32 !! $ Id$32 !! $Header$ 33 33 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 34 34 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trczdf_imp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 29 29 !!---------------------------------------------------------------------- 30 30 !! TOP 1.0 , LOCEAN-IPSL (2005) 31 !! $ Id$31 !! $Header$ 32 32 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 33 33 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trczdf_iso.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 33 33 !!---------------------------------------------------------------------- 34 34 !! TOP 1.0 , LOCEAN-IPSL (2005) 35 !! $ Id$35 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trczdf_iso.F90,v 1.13 2007/10/12 09:26:30 opalod Exp $ 36 36 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 37 37 !!---------------------------------------------------------------------- … … 343 343 ! WARNING trtrd(ji,jj,jk,6) used for vertical gent velocity trend 344 344 ! not for damping !!! 345 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn), 6) = ztavg345 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),9) = ztavg 346 346 # endif 347 347 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),6) = ztav - ztavg -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 36 36 !!---------------------------------------------------------------------- 37 37 !! TOP 1.0 , LOCEAN-IPSL (2005) 38 !! $ Id$38 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90,v 1.12 2007/10/12 09:26:30 opalod Exp $ 39 39 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 40 40 !!---------------------------------------------------------------------- … … 548 548 ztavg = ( zwx(ji,jj,jk) - zwx(ji,jj,jk+1) ) * zbtr 549 549 ! WARNING trtrd(ji,jj,jk,7) used for vertical gent velocity trend not for damping !!! 550 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn), 7) = ztavg550 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),9) = ztavg 551 551 # endif 552 552 IF (luttrd(jn)) trtrd(ji,jj,jk,ikeep(jn),6) = ztav - ztavg -
branches/dev_001_SBC/NEMO/TOP_SRC/TRP/zpshde_trc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 30 30 !!---------------------------------------------------------------------- 31 31 !! TOP 1.0 , LOCEAN-IPSL (2005) 32 !! $ Id$32 !! $Header$ 33 33 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 34 34 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/agrif_top_interp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 10 10 !!---------------------------------------------------------------------- 11 11 !! OPA 9.0 , LOCEAN-IPSL (2005) 12 !! $ Id$12 !! $Header$ 13 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 14 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/agrif_top_update.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 10 10 !!---------------------------------------------------------------------- 11 11 !! OPA 9.0 , LOCEAN-IPSL (2005) 12 !! $ Id$12 !! $Header$ 13 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 14 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/initrc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 10 10 !!------------------------------------------------------- 11 11 !! TOP 1.0, LOCEAN-IPSL (2005) 12 !! $ Id$12 !! $Header$ 13 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 14 !!------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/oce_trc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!---------------------------------------------------------------------- 9 9 !! TOP 1.0, LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/oce_trc.F90,v 1.17 2007/05/28 02:55:05 opalod Exp $ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/par_trc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 11 11 !!---------------------------------------------------------------------- 12 12 !! TOP 1.0, LOCEAN-IPSL (2005) 13 !! $ Id$13 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/par_trc.F90,v 1.6 2007/10/12 09:22:19 opalod Exp $ 14 14 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 15 15 !!---------------------------------------------------------------------- … … 29 29 !! we keep 3 more trends for eddy induced flux (gent velocity) 30 30 # if defined key_trcdmp 31 INTEGER , PARAMETER :: jpdiatrc = 11 32 # else 31 33 INTEGER , PARAMETER :: jpdiatrc = 10 32 # else33 INTEGER , PARAMETER :: jpdiatrc = 934 34 # endif 35 35 # else 36 36 # if defined key_trcdmp 37 INTEGER , PARAMETER :: jpdiatrc = 8 38 # else 37 39 INTEGER , PARAMETER :: jpdiatrc = 7 38 # else39 INTEGER , PARAMETER :: jpdiatrc = 640 40 # endif 41 41 # endif -
branches/dev_001_SBC/NEMO/TOP_SRC/par_trc_trp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!---------------------------------------------------------------------- 9 9 !! TOP 1.0, LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header$ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/passivetrc_substitute.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 6 6 !!---------------------------------------------------------------------- 7 7 !! TOP 1.0, LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/prtctl_trc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 32 32 !!---------------------------------------------------------------------- 33 33 !! OPA 9.0 , LOCEAN-IPSL (2005) 34 !! $ Id$34 !! $Header$ 35 35 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 36 36 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/trc.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 11 11 !!---------------------------------------------------------------------- 12 12 !! TOP 1.0, LOCEAN-IPSL (2005) 13 !! $ Id$13 !! $Header$ 14 14 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 15 15 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/trcctl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 10 10 !!========================================================================= 11 11 !! TOP 1.0, LOCEAN-IPSL (2005) 12 !! $ Id$12 !! $Header$ 13 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 14 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/trcdia.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 7 7 !!========================================================================== 8 8 !! TOP 1.0, LOCEAN-IPSL (2005) 9 !! $ Id$9 !! $Header$ 10 10 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 11 11 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/trcdit.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 2 2 !!---------------------------------------------------------------------- 3 3 !! TOP 1.0, LOCEAN-IPSL (2005) 4 !! $ Id$4 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/trcdit.F90,v 1.9 2007/10/12 09:22:19 opalod Exp $ 5 5 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 6 6 !!---------------------------------------------------------------------- … … 418 418 IF (jl.eq.7) THEN 419 419 ! short and long title for x gent velocity for tracer 420 WRITE (cltra,'("XGV ",16a)') ctrcnm(jn)420 WRITE (cltra,'("XGV_",16a)') ctrcnm(jn) 421 421 WRITE (cltral,'("X gent velocity trend for ",53a)') & 422 422 & ctrcnl(jn)(1:53) … … 436 436 # endif 437 437 # if defined key_trcdmp 438 IF (jl.eq.jpdiatrc ) THEN438 IF (jl.eq.jpdiatrc-1) THEN 439 439 ! last trends for tracer damping : short and long title 440 440 WRITE (cltra,'("TDM_",16a)') ctrcnm(jn) … … 443 443 END IF 444 444 # endif 445 IF (jl.eq.jpdiatrc) THEN 446 ! last trends for tracer damping : short and long title 447 WRITE (cltra,'("SBC_",16a)') ctrcnm(jn) 448 WRITE (cltral,'("Surface boundary flux ",58a)') & 449 & ctrcnl(jn)(1:58) 450 END IF 451 445 452 call flush(numout) 446 453 cltrau=ctrcun(jn) ! UNIT for tracer /trends … … 518 525 # endif 519 526 # if defined key_trcdmp 520 IF (jl.eq.jpdiatrc ) THEN527 IF (jl.eq.jpdiatrc-1) THEN 521 528 ! short for x gent velocity for tracer 522 529 WRITE (cltra,'("TDM_",16a)') ctrcnm(jn) 523 530 END IF 524 531 # endif 532 IF (jl.eq.jpdiatrc) THEN 533 ! short for surface boundary conditions for tracer 534 WRITE (cltra,'("SBC_",a)') ctrcnm(jn) 535 END IF 525 536 526 537 CALL histwrite(nit6(jn), cltra, it, trtrd(:,:,:,ikeep(jn),jl) & -
branches/dev_001_SBC/NEMO/TOP_SRC/trcdta.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 5 5 !!===================================================================== 6 6 !! TOP 1.0, LOCEAN-IPSL (2005) 7 !! $ Id$7 !! $Header$ 8 8 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 9 9 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/trcdtr.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!======================================================================================= 9 9 !! TOP 1.0, LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/trcdtr.F90,v 1.8 2007/10/17 14:48:56 opalod Exp $ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- … … 143 143 xksi(:,:)=2.E-6 144 144 145 !! initialize Silicate and Calcite and POC in sediments146 !! ---------------------------------------------------147 sedcal(:,:) = 0.148 sedsil(:,:) = 0.149 sedpoc(:,:) = 0.150 151 145 IF(lwp) WRITE(numout,*) 'Initialization of PISCES tracers done' 152 146 IF(lwp) WRITE(numout,*) ' ' -
branches/dev_001_SBC/NEMO/TOP_SRC/trcini.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 10 10 !!---------------------------------------------------------------------- 11 11 !! TOP 1.0, LOCEAN-IPSL (2005) 12 !! $ Id$12 !! $Header$ 13 13 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 14 14 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/trclec.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 7 7 !!========================================================================= 8 8 !! TOP 1.0, LOCEAN-IPSL (2005) 9 !! $ Id$9 !! $Header$ 10 10 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 11 11 !!---------------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/trclsm.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!================================================================= 9 9 !! TOP 1.0, LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header$ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!----------------------------------------------------------------- -
branches/dev_001_SBC/NEMO/TOP_SRC/trcrst.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!====================================================================== 9 9 !! TOP 1.0, LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/trcrst.F90,v 1.11 2007/10/17 14:48:56 opalod Exp $ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!---------------------------------------------------------------------- … … 205 205 CALL iom_get( numrtr, jpdom_local, 'Silicalim', xksi(:,:) ) 206 206 xksimax = xksi 207 208 CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jppoc), sedpoc(:,:) )209 CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jpcal), sedcal(:,:) )210 CALL iom_get( numrtr, jpdom_local, 'SED'//ctrcnm(jpsil), sedsil(:,:) )211 207 212 208 #elif defined key_cfc … … 446 442 CALL iom_rstput( kt, nitrst, numrtw, 'Silicalim', xksi(:,:) ) 447 443 448 CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jppoc), sedpoc(:,:) )449 CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jpcal), sedcal(:,:) )450 CALL iom_rstput( kt, nitrst, numrtw, 'SED'//ctrcnm(jpsil), sedsil(:,:) )451 452 444 #elif defined key_cfc 453 445 DO jn=1,jptra -
branches/dev_001_SBC/NEMO/TOP_SRC/trcsms.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r760 8 8 !!=========================================================================================== 9 9 !! TOP 1.0, LOCEAN-IPSL (2005) 10 !! $ Id$10 !! $Header$ 11 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 12 12 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.