Changeset 766
- Timestamp:
- 2007-12-14T09:59:00+01:00 (16 years ago)
- Location:
- branches/dev_001_GM/NEMO/TOP_SRC
- Files:
-
- 1 edited
- 3 moved
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_GM/NEMO/TOP_SRC/CFC/trcini_cfc.F90
r764 r766 1 MODULE trcini_cfc 1 2 !!====================================================================== 2 !! *** trcini.cfc.h90***3 !! TOP : Initialisation of CFC chemical model3 !! *** MODULE trcini_cfc *** 4 !! TOP : initialisation of the CFC tracers 4 5 !!====================================================================== 5 !! History : - ! 2004-06 (JC. Dutay) Original code 6 !! 1.0 ! 2005-03 (O. Aumont, A. El Moussaoui) F90 7 !! - ! 2005-10 (C. Ethe) Modularity 6 !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) from trcini.cfc.h90 8 7 !!---------------------------------------------------------------------- 8 #if defined key_cfc 9 !!---------------------------------------------------------------------- 10 !! 'key_cfc' CFC tracers 11 !!---------------------------------------------------------------------- 12 !! trc_ini_cfc : CFC model initialisation 13 !!---------------------------------------------------------------------- 14 USE par_trc ! TOP parameters 15 USE trccfc ! CFC sms trends 9 16 10 CHARACTER (len=34) :: clname = 'cfc1112.atm' ! ??? 17 IMPLICIT NONE 18 PRIVATE 19 20 PUBLIC trc_ini_cfc ! called by trcini.F90 module 21 22 CHARACTER (len=34) :: clname = 'cfc1112.atm' ! ??? 11 23 12 24 INTEGER :: inum ! unit number … … 15 27 16 28 !!---------------------------------------------------------------------- 17 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)18 !! $Id $29 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 30 !! $Id:$ 19 31 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 20 32 !!---------------------------------------------------------------------- … … 22 34 CONTAINS 23 35 24 SUBROUTINE trc_ini 36 SUBROUTINE trc_ini_cfc 25 37 !!---------------------------------------------------------------------- 26 !! *** trc ini.cfc.h90***38 !! *** trc_ini_cfc *** 27 39 !! 28 !! ** Purpose : special initialization for cfc model 40 !! ** Purpose : initialization for cfc model 41 !! 42 !! ** Method : - Read the namcfc namelist and check the parameter values 29 43 !!---------------------------------------------------------------------- 30 44 INTEGER :: ji, jj, jn, jl, jm 31 REAL(wp) :: zyy , zyd45 REAL(wp) :: zyy , zyd 32 46 !!---------------------------------------------------------------------- 47 48 IF(lwp) WRITE(numout,*) 49 IF(lwp) WRITE(numout,*) ' trc_ini_cfc: initialisation of CFC chemical model' 50 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 33 51 34 52 ! Initialization of boundaries conditions … … 122 140 END DO 123 141 ! 124 END SUBROUTINE trc_ini 142 END SUBROUTINE trc_ini_cfc 143 144 #else 145 !!---------------------------------------------------------------------- 146 !! Dummy module No CFC tracers 147 !!---------------------------------------------------------------------- 148 CONTAINS 149 SUBROUTINE trc_ini_cfc ! Empty routine 150 END SUBROUTINE trc_ini_cfc 151 #endif 152 153 !!====================================================================== 154 END MODULE trcini_cfc -
branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90
r764 r766 1 MODULE trcini_lobster 1 2 !!====================================================================== 2 !! *** trcini.lobster1.h90***3 !! TOP : Initialisation of LOBSTER 1biological model3 !! *** MODULE trcini_lobster *** 4 !! TOP : initialisation of the LOBSTER biological model 4 5 !!====================================================================== 5 6 !! History : - ! 1999-09 (M. Levy) Original code … … 7 8 !! 1.0 ! 2004-03 (C. Ethe) Modularity 8 9 !! - ! 2005-03 (O. Aumont, A. El Moussaoui) F90 10 !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) from trcini.lobster1.h90 9 11 !!---------------------------------------------------------------------- 12 #if defined key_trc_lobster1 13 !!---------------------------------------------------------------------- 14 !! 'key_trc_lobster1' LOBSTER model 15 !!---------------------------------------------------------------------- 16 !! trc_ini_lobster : LOBSTER model initialisation 17 !!---------------------------------------------------------------------- 18 USE par_trc ! TOP parameters 19 USE trccfc ! CFC sms trends 20 21 IMPLICIT NONE 22 PRIVATE 23 24 PUBLIC trc_ini_lobster ! called by trcini.F90 module 10 25 11 26 # include "domzgr_substitute.h90" 12 27 # include "passivetrc_substitute.h90" 13 28 !!---------------------------------------------------------------------- 14 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)15 !! $Id $29 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 30 !! $Id:$ 16 31 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 17 32 !!---------------------------------------------------------------------- … … 19 34 CONTAINS 20 35 21 SUBROUTINE trc_ini 36 SUBROUTINE trc_ini_lobster 22 37 !!---------------------------------------------------------------------- 23 !! *** ROUTINE trc_ini ***24 !! ** purpose : specific initialisation for lobster1model38 !! *** ROUTINE trc_ini_lobster *** 39 !! ** purpose : specific initialisation for LOBSTER bio-model 25 40 !!---------------------------------------------------------------------- 26 41 INTEGER :: ji, jj, jk, jn 27 42 REAL(wp) :: zdm0(jpi,jpj,jpk), zrro(jpi,jpj), zfluo, zfluu 28 43 REAL(wp) :: ztest, zfluo, zfluu 29 REAL(wp), DIMENSION(jpi,jpj) :: zrro44 REAL(wp), DIMENSION(jpi,jpj) :: zrro 30 45 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zdm0 31 46 !!---------------------------------------------------------------------- 47 48 IF(lwp) WRITE(numout,*) 49 IF(lwp) WRITE(numout,*) ' trc_ini_lobster : LOBSTER biochemical model initialisation' 50 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~' 51 32 52 33 53 ! initialization of fields for optical model … … 122 142 END DO 123 143 ! 124 END SUBROUTINE trc_ini 144 END SUBROUTINE trc_ini_lobster 145 146 #else 147 !!---------------------------------------------------------------------- 148 !! Dummy module No LOBSTER bio-model 149 !!---------------------------------------------------------------------- 150 CONTAINS 151 SUBROUTINE trc_ini_lobster ! Empty routine 152 END SUBROUTINE trc_ini_lobster 153 #endif 154 155 !!====================================================================== 156 END MODULE trcini_lobster -
branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90
r764 r766 1 MODULE trcini_pisces 1 2 !!====================================================================== 2 !! *** trcini.pisces.h90***3 !! TOP : Initialisation of PISCES biological model3 !! *** MODULE trcini_pisces *** 4 !! TOP : initialisation of the PISCES biochemical model 4 5 !!====================================================================== 5 6 !! History : - ! 1988-07 (E. Maier-Reiner) Original code … … 7 8 !! - ! 2002 (O. Aumont) PISCES 8 9 !! 1.0 ! 2005-03 (O. Aumont, A. El Moussaoui) F90 10 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) from trcini.pisces.h90 9 11 !!---------------------------------------------------------------------- 12 #if defined key_trc_pisces && defined key_trc_kriest 13 !!--------------------------------------------------------------------- 14 !! 'key_trc_pisces' & 'key_trc_kriest' PISCES bio-model + ??? 15 !!--------------------------------------------------------------------- 16 !! trc_ini_pisces : PISCES biochemical model initialisation 17 !!---------------------------------------------------------------------- 18 USE par_trc ! TOP parameters 19 USE trccfc ! CFC sms trends 20 USE iom 21 22 IMPLICIT NONE 23 PRIVATE 24 25 PUBLIC trc_ini_pisces ! called by trcini.F90 module 10 26 11 27 # include "domzgr_substitute.h90" 12 28 # include "passivetrc_substitute.h90" 13 29 !!---------------------------------------------------------------------- 14 !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)15 !! $Id $30 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 31 !! $Id:$ 16 32 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 17 33 !!---------------------------------------------------------------------- … … 19 35 CONTAINS 20 36 21 SUBROUTINE trc_ini 37 SUBROUTINE trc_ini_pisces 22 38 !!---------------------------------------------------------------------- 23 !! *** ROUTINE trc_ini ***39 !! *** ROUTINE trc_ini_pisces *** 24 40 !! 25 !! ** Purpose : Initialisation of PISCES biological and chemical variables41 !! ** Purpose : Initialisation of the PISCES biochemical model 26 42 !!---------------------------------------------------------------------- 27 USE iom 28 !! 29 INTEGER :: ji,jj,jk 30 INTEGER :: ichl,iband,jm 31 INTEGER , PARAMETER :: jpmois = 12, jpan = 1 43 INTEGER :: ji, jj, jk, jm 44 INTEGER :: ichl, iband 45 INTEGER , PARAMETER :: jpmois = 12, jpan = 1 32 46 33 47 REAL(wp) :: zcoef … … 49 63 50 64 IF(lwp) WRITE(numout,*) 51 IF(lwp) WRITE(numout,*) ' trc_ini : PISCES biological and chemical initialisation'52 IF(lwp) WRITE(numout,*) ' ~~~~~~~ '65 IF(lwp) WRITE(numout,*) ' trc_ini_pisces : PISCES biochemical model initialisation' 66 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 53 67 54 68 … … 59 73 rfact2r = 1. / rfact2 60 74 61 IF(lwp) WRITE(numout,*) ' Tracer time step =', rfact, ' rdt = ', rdt62 IF(lwp) write(numout,*) ' Biology time step =', rfact275 IF(lwp) WRITE(numout,*) ' Tracer time step rfact = ', rfact, ' rdt = ', rdt 76 IF(lwp) write(numout,*) ' Biology time step rfact2 = ', rfact2 63 77 64 78 … … 542 556 IF(lwp) WRITE(numout,*) ' Initialisation of PISCES done' 543 557 ! 544 END SUBROUTINE trc_ini 558 END SUBROUTINE trc_ini_pisces 559 560 #else 561 !!---------------------------------------------------------------------- 562 !! Dummy module No PISCES biochemical model 563 !!---------------------------------------------------------------------- 564 CONTAINS 565 SUBROUTINE trc_ini_pisces ! Empty routine 566 END SUBROUTINE trc_ini_pisces 567 #endif 568 569 !!====================================================================== 570 END MODULE trcini_pisces 571 -
branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90
r763 r766 8 8 !! - ! 2005-10 (C. Ethe) Module 9 9 !!---------------------------------------------------------------------- 10 #if defined key_passivetrc11 !!----------------------------------------------------------------------12 !! 'key_passivetrc' Passive tracers13 !!----------------------------------------------------------------------14 10 !! trc_ini : Initialization for passive tracer 15 11 !!---------------------------------------------------------------------- 16 USE oce_trc17 USE trc 18 USE sms19 USE lib_mpp20 USE lbclnk12 USE par_trc ! TOP parameters 13 USE trcini_cfc ! CFC initialisation 14 USE trcini_lobster ! LOBSTER initialisation 15 USE trcini_pisces ! PISCES initialisation 16 USE trcini_my_trc ! MY_TRC initialisation 21 17 22 18 IMPLICIT NONE … … 25 21 PUBLIC trc_ini ! called by ??? 26 22 27 # if defined key_trc_lobster128 !!----------------------------------------------------------------------29 !! 'key_trc_lobster1' LOBSTER1 biological model30 !!----------------------------------------------------------------------31 # include "trcini.lobster1.h90"32 33 # elif defined key_trc_pisces34 !!----------------------------------------------------------------------35 !! 'key_trc_pisces' PISCES biological model36 !!----------------------------------------------------------------------37 # include "trcini.pisces.h90"38 39 # elif defined key_cfc40 !!----------------------------------------------------------------------41 !! 'key_cfc ' CFC model42 !!----------------------------------------------------------------------43 # include "trcini.cfc.h90"44 45 # else46 !!----------------------------------------------------------------------47 !! Default option48 !!----------------------------------------------------------------------49 23 !!---------------------------------------------------------------------- 50 24 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) … … 59 33 !! *** ROUTINE trc_ini *** 60 34 !! 61 !! ** Purpose : Initialization of allpassive tracer to zero62 !! (default case)63 !! -------------------------------------------------------------------64 INTEGER :: ji ,jj ,jk ,jn, jl ! dummy loop indices35 !! ** Purpose : Initialization of passive tracer to zero 36 !! 37 !! ** Method : call the initialisation of each defined tracer 38 !! model (LOBSTER, PISCES, CFC, MY_TRC) 65 39 !!------------------------------------------------------------------- 66 40 67 41 IF(lwp) WRITE(numout,*) 68 IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the passive tracers'42 IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the tracer models' 69 43 IF(lwp) WRITE(numout,*) '~~~~~~~' 44 ! 45 IF( lk_trc_lobster ) THEN ; CALL trc_ini_lobster ! LOBSTER bio-model 46 ELSE ; IF(lwp) WRITE(numout,*) ' LOBSTER not used' 47 ENDIF 70 48 71 ! initialization of passives tracers field 72 ! ---------------------------------------- 73 DO jn = 1, jptra 74 trn(:,:,:,jn) = 0.e0 75 tra(:,:,:,jn) = 0.e0 76 END DO 49 IF( lk_trc_pisces ) THEN ; CALL trc_init_pisces ! PISCES bio-model 50 ELSE ; IF(lwp) WRITE(numout,*) ' PISCES not used' 51 ENDIF 77 52 78 # if defined key_trc_diaadd 79 ! initialization of output 2d and 3d arrays 80 DO jn = 1, jpdia2d 81 trc2d(:,:,jn) = 0.e0 82 END DO 83 DO jn = 1, jpdia3d 84 trc3d(:,:,:,jn) = 0.e0 85 END DO 86 # endif 53 IF( lk_trc_cfc ) THEN ; CALL trc_init_cfc ! CFC tracers 54 ELSE ; IF(lwp) WRITE(numout,*) ' CFC not used' 55 ENDIF 87 56 88 # if defined key_trc_diabio 89 ! initialization of biological trends 90 DO jn = 1, jpdiabio 91 trbio(:,:,:,jn) = 0.e0 92 END DO 93 # endif 94 95 # if defined key_trc_diatrd 96 ! initialization of tracer trends 97 DO jl = 1, jpdiatrc 98 DO jn = 1, jptra 99 IF( luttrd(jn) ) trtrd(:,:,:,ikeep(jn),jl) = 0.e0 100 END DO 101 END DO 102 # endif 57 IF( lk_trc_my_trc ) THEN ; CALL trc_init_my_trc ! MY_TRC tracers 58 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' 59 ENDIF 103 60 ! 104 61 END SUBROUTINE trc_ini 105 62 106 # endif107 108 #else109 !!----------------------------------------------------------------------110 !! Dummy module : NO passive tracer111 !!----------------------------------------------------------------------112 CONTAINS113 SUBROUTINE trc_ini ! Empty routine114 END SUBROUTINE trc_ini115 #endif116 117 63 !!====================================================================== 118 64 END MODULE trcini
Note: See TracChangeset
for help on using the changeset viewer.