Changeset 7073
- Timestamp:
- 2016-10-24T12:36:50+02:00 (8 years ago)
- Location:
- branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90
r7041 r7073 13 13 IMPLICIT NONE 14 14 15 #if defined key_my_trc16 !!---------------------------------------------------------------------17 !! 'key_my_trc' user defined tracers (MY_TRC)18 !!---------------------------------------------------------------------19 LOGICAL, PUBLIC, PARAMETER :: lk_my_trc = .TRUE. !: PTS flag20 INTEGER, PUBLIC :: jp_my_trc !: number of PTS tracers21 22 #else23 !!---------------------------------------------------------------------24 !! Default No user defined tracers (MY_TRC)25 !!---------------------------------------------------------------------26 LOGICAL, PUBLIC, PARAMETER :: lk_my_trc = .FALSE. !: MY_TRC flag27 INTEGER, PUBLIC :: jp_my_trc !: No MY_TRC tracers28 #endif29 30 15 ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done) 31 16 INTEGER, PUBLIC :: jp_myt0 !: First index of MY_TRC passive tracers 32 17 INTEGER, PUBLIC :: jp_myt1 !: Last index of MY_TRC passive tracers 33 18 34 INTEGER, PUBLIC :: jpmyt0, jpmty1, jpmyt2 !: Lastindex of MY_TRC passive tracers19 INTEGER, PUBLIC :: jpmyt0, jpmty1, jpmyt2 !: index of MY_TRC passive tracers 35 20 !!====================================================================== 36 21 END MODULE par_my_trc -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcice_my_trc.F90
r5439 r7073 2 2 !!====================================================================== 3 3 !! *** MODULE trcice_my_trc *** 4 !!----------------------------------------------------------------------5 #if defined key_my_trc6 !!----------------------------------------------------------------------7 !! 'key_my_trc' CFC tracers8 4 !!---------------------------------------------------------------------- 9 5 !! trc_ice_my_trc : MY_TRC model main routine … … 34 30 END SUBROUTINE trc_ice_ini_my_trc 35 31 36 #else37 !!----------------------------------------------------------------------38 !! Dummy module No MY_TRC model39 !!----------------------------------------------------------------------40 CONTAINS41 SUBROUTINE trc_ice_ini_my_trc ! Empty routine42 END SUBROUTINE trc_ice_ini_my_trc43 #endif44 32 45 33 !!====================================================================== -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90
r7041 r7073 5 5 !!====================================================================== 6 6 !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) Original code 7 !!----------------------------------------------------------------------8 #if defined key_my_trc9 !!----------------------------------------------------------------------10 !! 'key_my_trc' CFC tracers11 7 !!---------------------------------------------------------------------- 12 8 !! trc_ini_my_trc : MY_TRC model initialisation … … 37 33 !! ** Method : - Read the namcfc namelist and check the parameter values 38 34 !!---------------------------------------------------------------------- 39 INTEGER :: jn40 CHARACTER(len = 20) :: cltra41 42 43 jp_my_trc = 144 ! assign an index in trc arrays for each prognostic variables45 DO jn = 1, jptra46 cltra = ctrcnm(jn)47 IF( cltra == 'MYTRC' .OR. cltra == 'mytrc' ) jpmyt0 = jn48 IF( cltra == 'MYTRC1' .OR. cltra == 'mytrc1' ) jpmyt1 = jn49 IF( cltra == 'MYTRC2' .OR. cltra == 'mytrc2' ) jpmyt2 = jn50 ENDDO51 52 IF( jp_my_trc == 1 ) THEN53 jp_myt0 = jpmyt054 ELSE55 jp_myt0 = MIN( jpmyt0, jpmyt1, jpmyt2 )56 ENDIF57 jp_myt1 = jp_myt0 + jp_my_trc - 158 59 60 IF( lwp ) THEN61 WRITE(numout,*) ''62 WRITE(numout,*) ' First index of MYTRC model in the passive tracer array jp_myt0 = ', jp_myt063 WRITE(numout,*) ' Last index of MYTRC model in the passive tracer array jp_myt1 = ', jp_myt164 WRITE(numout,*)65 ENDIF66 67 35 68 36 ! ! Allocate MY_TRC arrays … … 81 49 END SUBROUTINE trc_ini_my_trc 82 50 83 #else84 !!----------------------------------------------------------------------85 !! Dummy module No MY_TRC model86 !!----------------------------------------------------------------------87 CONTAINS88 SUBROUTINE trc_ini_my_trc ! Empty routine89 END SUBROUTINE trc_ini_my_trc90 #endif91 51 92 52 !!====================================================================== -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcnam_my_trc.F90
r3680 r7073 5 5 !!====================================================================== 6 6 !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) Original code 7 !!----------------------------------------------------------------------8 #if defined key_my_trc9 !!----------------------------------------------------------------------10 !! 'key_my_trc' : MY_TRC model11 7 !!---------------------------------------------------------------------- 12 8 !! trc_nam_my_trc : MY_TRC model initialisation … … 43 39 END SUBROUTINE trc_nam_my_trc 44 40 45 #else46 !!----------------------------------------------------------------------47 !! Dummy module : No MY_TRC48 !!----------------------------------------------------------------------49 CONTAINS50 SUBROUTINE trc_nam_my_trc ! Empty routine51 END SUBROUTINE trc_nam_my_trc52 #endif53 41 54 42 !!====================================================================== -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90
r6140 r7073 5 5 !!====================================================================== 6 6 !! History : 2.0 ! 2007-12 (C. Ethe, G. Madec) Original code 7 !!----------------------------------------------------------------------8 #if defined key_my_trc9 !!----------------------------------------------------------------------10 !! 'key_my_trc' CFC tracers11 7 !!---------------------------------------------------------------------- 12 8 !! trc_sms_my_trc : MY_TRC model main routine … … 89 85 90 86 91 #else92 !!----------------------------------------------------------------------93 !! Dummy module No MY_TRC model94 !!----------------------------------------------------------------------95 CONTAINS96 SUBROUTINE trc_sms_my_trc( kt ) ! Empty routine97 INTEGER, INTENT( in ) :: kt98 WRITE(*,*) 'trc_sms_my_trc: You should not have seen this print! error?', kt99 END SUBROUTINE trc_sms_my_trc100 #endif101 102 87 !!====================================================================== 103 88 END MODULE trcsms_my_trc -
branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90
r6140 r7073 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && defined key_my_trc && defined key_iomput 9 !!---------------------------------------------------------------------- 10 !! 'key_my_trc' my_trc model 8 #if defined key_top && defined key_iomput 11 9 !!---------------------------------------------------------------------- 12 10 !! trc_wri_my_trc : outputs of concentration fields 13 11 !!---------------------------------------------------------------------- 12 USE par_trc ! passive tracers common variables 14 13 USE trc ! passive tracers common variables 15 14 USE iom ! I/O manager … … 36 35 DO jn = jp_myt0, jp_myt1 37 36 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer 38 IF( ln_trc_wri(jn) )CALL iom_put( cltra, trn(:,:,:,jn) )37 CALL iom_put( cltra, trn(:,:,:,jn) ) 39 38 END DO 40 39 ! … … 42 41 43 42 #else 44 !!---------------------------------------------------------------------- 45 !! Dummy module : No passive tracer 46 !!---------------------------------------------------------------------- 47 PUBLIC trc_wri_my_trc 43 48 44 CONTAINS 49 SUBROUTINE trc_wri_my_trc ! Empty routine 45 46 SUBROUTINE trc_wri_my_trc 47 ! 50 48 END SUBROUTINE trc_wri_my_trc 49 51 50 #endif 52 51 53 !!----------------------------------------------------------------------54 !! NEMO/TOP 3.3 , NEMO Consortium (2010)55 !! $Id: trcwri_my_trc.F90 3160 2011-11-20 14:27:18Z cetlod $56 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)57 !!======================================================================58 52 END MODULE trcwri_my_trc
Note: See TracChangeset
for help on using the changeset viewer.