Changeset 341
- Timestamp:
- 2005-11-14T17:42:44+01:00 (19 years ago)
- Location:
- trunk/NEMO/TOP_SRC/SMS
- Files:
-
- 34 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SMS/p4zbio.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 SUBROUTINE p4zbio 2 7 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/p4zche.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zche -
trunk/NEMO/TOP_SRC/SMS/p4zdiat.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zdiat -
trunk/NEMO/TOP_SRC/SMS/p4zflx.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zflx -
trunk/NEMO/TOP_SRC/SMS/p4zint.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zint(kt) -
trunk/NEMO/TOP_SRC/SMS/p4zlim.F
r333 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zlim -
trunk/NEMO/TOP_SRC/SMS/p4zlys.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zlys -
trunk/NEMO/TOP_SRC/SMS/p4zmeso.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zmeso -
trunk/NEMO/TOP_SRC/SMS/p4zmicro.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zmicro -
trunk/NEMO/TOP_SRC/SMS/p4znano.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4znano -
trunk/NEMO/TOP_SRC/SMS/p4zopt.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zopt -
trunk/NEMO/TOP_SRC/SMS/p4zprg.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zprg(kt) -
trunk/NEMO/TOP_SRC/SMS/p4zprod.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zprod -
trunk/NEMO/TOP_SRC/SMS/p4zrem.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zrem -
trunk/NEMO/TOP_SRC/SMS/p4zsed.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zsed -
trunk/NEMO/TOP_SRC/SMS/p4zsink.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zsink -
trunk/NEMO/TOP_SRC/SMS/p4zsink2.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 SUBROUTINE p4zsink2(wstmp,sinktemp,jn) 2 7 CDIR$ LIST -
trunk/NEMO/TOP_SRC/SMS/p4zslow.F
r333 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 CDIR$ LIST 2 7 SUBROUTINE p4zslow(kt) -
trunk/NEMO/TOP_SRC/SMS/par_sms.F90
r336 r341 10 10 !! 11 11 !! 12 !!---------------------------------------------------------------------- 13 !! TOP 1.0 , LOCEAN-IPSL (2005) 14 !! $Header$ 15 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 16 !!---------------------------------------------------------------------- 12 17 USE par_trc_trp 13 18 IMPLICIT NONE -
trunk/NEMO/TOP_SRC/SMS/par_sms_cfc.h90
r336 r341 5 5 6 6 !!---------------------------------------------------------------------- 7 !! TOP 1.0, LOCEAN-IPSL (2005) 7 !! TOP 1.0 , LOCEAN-IPSL (2005) 8 !! $Header$ 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 8 10 !!---------------------------------------------------------------------- 9 11 -
trunk/NEMO/TOP_SRC/SMS/sms.F90
r336 r341 7 7 !! 9.0 ! 04-03 (C. Ethe) Free form and module 8 8 !!---------------------------------------------------------------------- 9 !! TOP 1.0, LOCEAN-IPSL (2005) 9 !! TOP 1.0 , LOCEAN-IPSL (2005) 10 !! $Header$ 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 12 !!---------------------------------------------------------------------- 11 13 !! * Modules used -
trunk/NEMO/TOP_SRC/SMS/sms_cfc.h90
r336 r341 5 5 6 6 !!---------------------------------------------------------------------- 7 !! TOP 1.0, LOCEAN-IPSL (2005) 7 !! TOP 1.0 , LOCEAN-IPSL (2005) 8 !! $Header$ 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 8 10 !!---------------------------------------------------------------------- 9 11 -
trunk/NEMO/TOP_SRC/SMS/sms_lobster1.h90
r336 r341 15 15 !! 16 16 !!--------------------------------------------------------------------- 17 !! opa8, ipsl (11/96) 17 !! TOP 1.0 , LOCEAN-IPSL (2005) 18 !! $Header$ 19 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 18 20 !!--------------------------------------------------------------------- 19 21 !! -
trunk/NEMO/TOP_SRC/SMS/sms_pisces.h90
r336 r341 13 13 !! 14 14 !!--------------------------------------------------------------------- 15 !! opa8, ipsl (11/96) 15 !! TOP 1.0 , LOCEAN-IPSL (2005) 16 !! $Header$ 17 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 16 18 !!--------------------------------------------------------------------- 17 19 !! -
trunk/NEMO/TOP_SRC/SMS/trcbio.F
r339 r341 1 2 CCC $Header$ 3 CCC TOP 1.0 , LOCEAN-IPSL (2005) 4 C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 5 C --------------------------------------------------------------------------- 1 6 SUBROUTINE trcbio(kt) 2 7 #if defined key_passivetrc && defined key_trc_lobster1 -
trunk/NEMO/TOP_SRC/SMS/trcctl.cfc.h90
r338 r341 1 ! $Id$ 2 !!! 3 !!! Modifications: 4 !!! -------------- 5 !!! 05-10 (C. Ethe): 6 !!! assign a parameter to name individual tracers 7 !!! 1 !! 2 !! Modifications: 3 !! -------------- 4 !! 05-10 (C. Ethe): 5 !! assign a parameter to name individual tracers 6 !! 7 !!---------------------------------------------------------------------- 8 !! TOP 1.0 , LOCEAN-IPSL (2005) 9 !! $Header$ 10 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 11 !!---------------------------------------------------------------------- 8 12 9 13 IF(lwp) THEN … … 12 16 ENDIF 13 17 14 ! Check number of tracers15 ! -----------------------18 ! Check number of tracers 19 ! ----------------------- 16 20 17 21 IF (jptra .GT. 2) THEN … … 25 29 END IF 26 30 27 ! Check tracer names 28 ! ------------------ 31 ! Check tracer names 32 ! ------------------ 33 29 34 IF ( jptra == 1 ) THEN 30 35 IF ( jp11 == 1 ) THEN … … 62 67 63 68 64 ! Check tracer units 69 ! Check tracer units 70 ! ------------------ 65 71 66 72 DO jn=1,jptra -
trunk/NEMO/TOP_SRC/SMS/trcctl.pisces.h90
r336 r341 1 2 !!---------------------------------------------------------------------- 3 !! TOP 1.0 , LOCEAN-IPSL (2005) 4 !! $Header$ 5 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 6 !!---------------------------------------------------------------------- 1 7 #if defined key_trc_pisces 2 8 IF(lwp) WRITE(numout,*) ' use PISCES biological model ' 3 9 IF(lwp) WRITE(numout,*) ' ' 4 10 5 ! Check number of tracers6 ! -----------------------11 ! Check number of tracers 12 ! ----------------------- 7 13 8 14 IF (jptra /= 24) THEN -
trunk/NEMO/TOP_SRC/SMS/trcfreons.F90
r333 r341 39 39 40 40 !!---------------------------------------------------------------------- 41 !! TOP 1.0, LOCEAN-IPSL (2005) 41 !! TOP 1.0 , LOCEAN-IPSL (2005) 42 !! $Header$ 43 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 42 44 !!---------------------------------------------------------------------- 43 45 … … 233 235 !! 9.0 ! 05-10 (C. Ethe) Modularity 234 236 !!--------------------------------------------------------------------- 235 !! TOP 1.0, LOCEAN-IPSL (2005) 237 !! TOP 1.0 , LOCEAN-IPSL (2005) 238 !! $Header$ 239 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 236 240 !!---------------------------------------------------------------- 237 241 !! Local declarations -
trunk/NEMO/TOP_SRC/SMS/trcini.cfc.h90
r338 r341 26 26 !! 9.0 ! 05-10 (C. Ethe) Modularity 27 27 !!--------------------------------------------------------------------- 28 !! TOP 1.0, LOCEAN-IPSL (2005) 29 !!---------------------------------------------------------------- 28 !! TOP 1.0 , LOCEAN-IPSL (2005) 29 !! $Header$ 30 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 31 !!--------------------------------------------------------------------- 30 32 !! Local declarations 31 33 INTEGER :: ji, jj, jn, jl, jm -
trunk/NEMO/TOP_SRC/SMS/trcini.lobster1.h90
r336 r341 19 19 !! add sediment computations 20 20 !! 03-05 : O. Aumont and A. El Moussaoui F90 21 !!--------------------------------------------------------------------- 21 !!---------------------------------------------------------------------- 22 !! TOP 1.0 , LOCEAN-IPSL (2005) 23 !! $Header$ 24 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 25 !!---------------------------------------------------------------------- 22 26 !! local declarations 23 27 !! ================== -
trunk/NEMO/TOP_SRC/SMS/trcini.pisces.h90
r336 r341 35 35 !! additions : 2002 O. Aumont (PISCES) 36 36 !! 03-2005 O. Aumont and A. El Moussaoui F90 37 !!--------------------------------------------------------------------- 37 !!---------------------------------------------------------------------- 38 !! TOP 1.0 , LOCEAN-IPSL (2005) 39 !! $Header$ 40 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 41 !!---------------------------------------------------------------------- 38 42 !! local declarations 39 43 !! ================== -
trunk/NEMO/TOP_SRC/SMS/trclsm.cfc.h90
r336 r341 17 17 !! history : 18 18 !! 2.0 ! 03-08 (C. Ethe) Original code 19 !!------------------------------------------------------------------- 19 !!---------------------------------------------------------------------- 20 !! TOP 1.0 , LOCEAN-IPSL (2005) 21 !! $Header$ 22 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 23 !!---------------------------------------------------------------------- 20 24 21 25 CHARACTER (len=32) :: & -
trunk/NEMO/TOP_SRC/SMS/trclsm.lobster1.h90
r336 r341 27 27 28 28 !!--------------------------------------------------------------------- 29 !! OPA8, LODYC (15/11/96) 29 !! TOP 1.0 , LOCEAN-IPSL (2005) 30 !! $Header$ 31 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 30 32 !!--------------------------------------------------------------------- 31 33 -
trunk/NEMO/TOP_SRC/SMS/trclsm.pisces.h90
r336 r341 26 26 27 27 !!--------------------------------------------------------------------- 28 !! OPA8, LODYC (15/11/96) 28 !! TOP 1.0 , LOCEAN-IPSL (2005) 29 !! $Header$ 30 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 29 31 !!--------------------------------------------------------------------- 30 32
Note: See TracChangeset
for help on using the changeset viewer.