Changeset 335 for trunk/NEMO/TOP_SRC/trcini.F90
- Timestamp:
- 2005-11-14T13:08:42+01:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcini.F90
r274 r335 1 1 MODULE trcini 2 2 !!========================================================================== 3 !! 4 !! *** MODULE trcini *** 5 !! 6 !! Initialization for passive tracer (for restart or not) 7 !! 8 !!========================================================================= 9 !! TOP 1.0, LOCEAN-IPSL (2005) 10 !! $Header$ 11 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 3 !! *** MODULE trcini *** 4 !! Ocean passive tracers: Manage the passive tracer initialization 5 !!========================================================================= 6 #if defined key_passivetrc 12 7 !!---------------------------------------------------------------------- 13 14 !! * Modules used 15 !! ============== 16 USE ioipsl 17 USE oce_trc 18 USE trc 19 USE sms 20 USE lib_mpp 8 !! trc_ini : Initialization for passive tracer 9 !!---------------------------------------------------------------------- 10 !! * Modules used 11 USE ioipsl 12 USE oce_trc 13 USE trc 14 USE sms 15 USE lib_mpp 16 USE lbclnk 21 17 22 23 18 IMPLICIT NONE 19 PRIVATE 24 20 25 !! * Accessibility 26 PUBLIC trc_ini 21 !! * Accessibility 22 PUBLIC trc_ini 23 24 #if defined key_trc_lobster1 25 !!---------------------------------------------------------------------- 26 !! 'key_trc_lobster1' LOBSTER1 biological model 27 !!---------------------------------------------------------------------- 28 # include "trcini.lobster1.h90" 29 30 #elif defined key_trc_pisces 31 !!---------------------------------------------------------------------- 32 !! 'key_trc_pisces' PISCES biological model 33 !!---------------------------------------------------------------------- 34 # include "trcini.pisces.h90" 35 36 #elif defined key_cfc 37 !!---------------------------------------------------------------------- 38 !! 'key_cfc ' CFC model 39 !!---------------------------------------------------------------------- 40 # include "trcini.cfc.h90" 41 42 #else 43 !!---------------------------------------------------------------------- 44 !! Default option 45 !!---------------------------------------------------------------------- 27 46 28 47 CONTAINS 29 48 30 #if defined key_passivetrc 49 SUBROUTINE trc_ini 50 !!--------------------------------------------------------------------- 51 !! *** ROUTINE trc_ini *** 52 !! 53 !! ** Purpose : Initialization for passive tracer 54 !! for restart or not 55 !! 56 !! History : 57 !! ! 00-04 O. Aumont, M.A. Foujols HAMOCC3 and P3ZD 58 !! 8.5 ! 05-03 O.Aumont and A.El Moussaoui F90 59 !! 9.0 ! 05-10 C. Ethe Modularity 60 !!---------------------------------------------------------------------- 61 !! * local declarations 62 INTEGER :: & 63 ji ,jj ,jk ,jn, jl ! dummy loop indices 64 !!--------------------------------------------------------------------- 31 65 32 SUBROUTINE trc_ini33 !!---------------------------------------------------------------------34 !! ROUTINE trcini35 !! ******************36 !! PURPOSE :37 !! ---------38 !! initialization for passive tracer39 !! for restart or not40 !!41 !! WORKSPACE :42 !! ---------43 !! ji jj jk44 !!45 !! History:46 !! --------47 !! 04/00 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD48 !! 03/05 O.Aumont and A.El Moussaoui F9049 !!----------------------------------------------------------------------50 !!----------------------------------------------------------------------51 !! local declarations52 !! ==================53 66 54 INTEGER :: ji,jj,jk,jn,jl 55 56 !!---------------------------------------------------------------------- 57 !! statement functions 58 !! =================== 59 60 #include "passivetrc_substitute.h90" 61 62 !!--------------------------------------------------------------------- 63 !! OPA.9 64 !!--------------------------------------------------------------------- 65 66 # if defined key_trc_npzd 67 # include "trcini.npzd.h90" 68 # elif defined key_trc_lobster1 69 # include "trcini.lobster1.h90" 70 # elif defined key_trc_hamocc3 71 # include "trcini.hamocc3.h90" 72 # elif defined key_trc_pisces 73 # include "trcini.pisces.h90" 74 # else 75 76 ! Specific initialization to do 77 !!----------------------------- 78 # endif 79 80 !! 1. initialization of passives tracers field 81 !! ------------------------------------------- 82 DO jn=1,jptra 83 trn(:,:,:,jn)=0.e0 84 tra(:,:,:,jn)=0.e0 67 !! 1. initialization of passives tracers field 68 !! ------------------------------------------- 69 DO jn = 1, jptra 70 trn(:,:,:,jn)=0.e0 71 tra(:,:,:,jn)=0.e0 85 72 END DO 86 73 87 74 #if defined key_trc_diaadd 88 !! initialization of output 2d and 3d arrays75 !! initialization of output 2d and 3d arrays 89 76 90 DO jn =1,jpdia2d91 77 DO jn = 1, jpdia2d 78 trc2d(:,:,jn)=0.e0 92 79 END DO 93 DO jn=1,jpdia3d 94 trc3d(:,:,:,jn)=0.e0 80 81 DO jn = 1, jpdia3d 82 trc3d(:,:,:,jn)=0.e0 95 83 END DO 96 84 #endif 97 85 98 86 #if defined key_trc_diabio 99 !! initialization of biological trends87 !! initialization of biological trends 100 88 DO jn=1,jpdiabio 101 trbio(ji,jj,jk,jn)=0.e089 trbio(:,:,:,jn) = 0.e0 102 90 END DO 103 91 #endif 104 92 105 93 #if defined key_trc_diatrd 106 !! initialization of tracer trends107 DO jl =1,jpdiatrc108 DO jn=1,jptra109 trtrd(:,:,:,jn,jl)=0.e0110 END DO94 !! initialization of tracer trends 95 DO jl = 1, jpdiatrc 96 DO jn = 1, jptra 97 trtrd(:,:,:,jn,jl) = 0.e0 98 END DO 111 99 END DO 112 100 #endif 113 114 IF( lwp) THEN115 116 117 101 102 IF( lwp ) THEN 103 WRITE(numout,*) ' ' 104 WRITE(numout,*) ' trcini: generic initialisation done ' 105 WRITE(numout,*) ' ' 118 106 ENDIF 119 107 120 END SUBROUTINE trc_ini 121 122 #else 123 124 SUBROUTINE trc_ini 125 126 !! no passive tracers 127 !!=================== 128 END SUBROUTINE trc_ini 108 END SUBROUTINE trc_ini 129 109 130 110 #endif 131 111 112 #else 113 !!---------------------------------------------------------------------- 114 !! Dummy module : NO passive tracer 115 !!---------------------------------------------------------------------- 116 CONTAINS 117 SUBROUTINE trc_ini ! Empty routine 118 119 END SUBROUTINE trc_ini 120 #endif 121 122 !!====================================================================== 132 123 END MODULE trcini
Note: See TracChangeset
for help on using the changeset viewer.