Changeset 7203
- Timestamp:
- 2016-11-07T17:59:36+01:00 (8 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90
r7179 r7203 25 25 USE par_c14b , ONLY : jp_c14b_trd !: number of tracers in C14 26 26 27 USE par_age , ONLY : jp_age !: number of tracers in AGE28 USE par_age , ONLY : jp_age_2d !: number of tracers in AGE29 USE par_age , ONLY : jp_age_3d !: number of tracers in AGE30 USE par_age , ONLY : jp_age_trd !: number of tracers in AGE31 32 27 IMPLICIT NONE 33 28 34 INTEGER, PARAMETER :: jp_lm = jp_pisces + jp_cfc + jp_c14b + jp_age!:35 INTEGER, PARAMETER :: jp_lm_2d = jp_pisces_2d + jp_cfc_2d + jp_c14b_2d + jp_age_2d!:36 INTEGER, PARAMETER :: jp_lm_3d = jp_pisces_3d + jp_cfc_3d + jp_c14b_3d + jp_age_3d!:37 INTEGER, PARAMETER :: jp_lm_trd = jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_age_trd!:29 INTEGER, PARAMETER :: jp_lm = jp_pisces + jp_cfc + jp_c14b !: 30 INTEGER, PARAMETER :: jp_lm_2d = jp_pisces_2d + jp_cfc_2d + jp_c14b_2d !: 31 INTEGER, PARAMETER :: jp_lm_3d = jp_pisces_3d + jp_cfc_3d + jp_c14b_3d !: 32 INTEGER, PARAMETER :: jp_lm_trd = jp_pisces_trd + jp_cfc_trd + jp_c14b_trd !: 38 33 39 34 #if defined key_my_trc -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r7179 r7203 73 73 INTEGER, INTENT(in) :: kt ! ocean time-step index 74 74 ! 75 INTEGER :: jk , jn75 INTEGER :: jk 76 76 CHARACTER (len=22) :: charout 77 77 REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn ! effective velocity -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP/trcrad.F90
r7179 r7203 61 61 ENDIF 62 62 63 IF( lk_age ) CALL trc_rad_sms( kt, trb, trn, jp_age0 , jp_age1 ) ! AGE tracer64 63 IF( lk_cfc ) CALL trc_rad_sms( kt, trb, trn, jp_cfc0 , jp_cfc1 ) ! CFC model 65 64 IF( lk_c14b ) CALL trc_rad_sms( kt, trb, trn, jp_c14b0, jp_c14b1 ) ! bomb C14 -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/par_trc.F90
r7179 r7203 14 14 USE par_c14b ! C14 bomb tracer 15 15 USE par_cfc ! CFC 11 and 12 tracers 16 USE par_age ! AGE tracer17 16 USE par_my_trc ! user defined passive tracers 18 17 … … 25 24 ! Passive tracers : Total size 26 25 ! --------------- ! total number of passive tracers, of 2d and 3d output and trend arrays 27 INTEGER, PUBLIC, PARAMETER :: jptra = jp_pisces + jp_cfc + jp_c14b + jp_ age + jp_my_trc28 INTEGER, PUBLIC, PARAMETER :: jpdia2d = jp_pisces_2d + jp_cfc_2d + jp_c14b_2d + jp_ age_2d + jp_my_trc_2d29 INTEGER, PUBLIC, PARAMETER :: jpdia3d = jp_pisces_3d + jp_cfc_3d + jp_c14b_3d + jp_ age_3d + jp_my_trc_3d26 INTEGER, PUBLIC, PARAMETER :: jptra = jp_pisces + jp_cfc + jp_c14b + jp_my_trc 27 INTEGER, PUBLIC, PARAMETER :: jpdia2d = jp_pisces_2d + jp_cfc_2d + jp_c14b_2d + jp_my_trc_2d 28 INTEGER, PUBLIC, PARAMETER :: jpdia3d = jp_pisces_3d + jp_cfc_3d + jp_c14b_3d + jp_my_trc_3d 30 29 ! ! total number of sms diagnostic arrays 31 INTEGER, PUBLIC, PARAMETER :: jpdiabio = jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_ age_trd + jp_my_trc_trd30 INTEGER, PUBLIC, PARAMETER :: jpdiabio = jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd 32 31 33 32 ! 1D configuration ("key_c1d") -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r7179 r7203 23 23 USE trcini_pisces ! PISCES initialisation 24 24 USE trcini_c14b ! C14 bomb initialisation 25 USE trcini_age ! AGE initialisation26 25 USE trcini_my_trc ! MY_TRC initialisation 27 26 USE trcdta ! initialisation from files … … 100 99 IF( lk_cfc ) CALL trc_ini_cfc ! CFC tracers 101 100 IF( lk_c14b ) CALL trc_ini_c14b ! C14 bomb tracer 102 IF( lk_age ) CALL trc_ini_age ! AGE tracer 103 IF( lk_my_trc ) CALL trc_ini_my_trc ! MY_TRC tracers 101 IF( lk_my_trc ) CALL trc_ini_my_trc ! MY_TRC tracers 104 102 105 103 CALL trc_ice_ini ! Tracers in sea ice -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r7179 r7203 24 24 USE trcnam_cfc ! CFC SMS namelist 25 25 USE trcnam_c14b ! C14 SMS namelist 26 USE trcnam_age ! AGE SMS namelist27 26 USE trcnam_my_trc ! MY_TRC SMS namelist 28 27 USE trd_oce … … 162 161 ENDIF 163 162 164 IF( lk_c14b ) THEN ; CALL trc_nam_c14b ! C14 bomb tracers 165 ELSE ; IF(lwp) WRITE(numout,*) ' C14 not used' 166 ENDIF 167 168 IF( lk_age ) THEN ; CALL trc_nam_age ! AGE tracer 169 ELSE ; IF(lwp) WRITE(numout,*) ' AGE not used' 170 ENDIF 171 172 IF( lk_my_trc ) THEN ; CALL trc_nam_my_trc ! MY_TRC tracers 173 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' 163 IF( lk_c14b ) THEN ; CALL trc_nam_c14b ! C14 bomb tracers 164 ELSE ; IF(lwp) WRITE(numout,*) ' C14 not used' 165 ENDIF 166 167 IF( lk_my_trc ) THEN ; CALL trc_nam_my_trc ! MY_TRC tracers 168 ELSE ; IF(lwp) WRITE(numout,*) ' MY_TRC not used' 174 169 ENDIF 175 170 ! -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r7179 r7203 27 27 USE trcnam_trp 28 28 USE iom 29 USE in_out_manager , ONLY : ln_rstdate30 29 USE daymod 31 30 IMPLICIT NONE … … 49 48 !!---------------------------------------------------------------------- 50 49 INTEGER, INTENT(in) :: kt ! number of iteration 51 INTEGER :: iyear, imonth, iday52 REAL (wp) :: zsec53 50 ! 54 51 CHARACTER(LEN=20) :: clkt ! ocean time-step define as a character … … 81 78 ! except if we write tracer restart files every tracer time step or if a tracer restart file was writen at nitend - 2*nn_dttrc + 1 82 79 IF( kt == nitrst - 2*nn_dttrc .OR. nstock == nn_dttrc .OR. ( kt == nitend - nn_dttrc .AND. .NOT. lrst_trc ) ) THEN 83 IF ( ln_rstdate ) THEN 84 CALL ju2ymds( fjulday + rdttra(1) / rday, iyear, imonth, iday, zsec ) 85 WRITE(clkt, '(i4.4,2i2.2)') iyear, imonth, iday 86 ELSE 87 ! beware of the format used to write kt (default is i8.8, that should be large enough...) 88 IF( nitrst > 999999999 ) THEN ; WRITE(clkt, * ) nitrst 89 ELSE ; WRITE(clkt, '(i8.8)') nitrst 90 ENDIF 80 ! beware of the format used to write kt (default is i8.8, that should be large enough) 81 IF( nitrst > 1.0e9 ) THEN ; WRITE(clkt,* ) nitrst 82 ELSE ; WRITE(clkt,'(i8.8)') nitrst 91 83 ENDIF 92 84 ! create the file -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcsms.F90
r7179 r7203 18 18 USE trcsms_cfc ! CFC 11 & 12 19 19 USE trcsms_c14b ! C14b tracer 20 USE trcsms_age ! AGE tracer21 20 USE trcsms_my_trc ! MY_TRC tracers 22 21 USE prtctl_trc ! Print control for debbuging … … 52 51 IF( lk_cfc ) CALL trc_sms_cfc ( kt ) ! surface fluxes of CFC 53 52 IF( lk_c14b ) CALL trc_sms_c14b ( kt ) ! surface fluxes of C14 54 IF( lk_age ) CALL trc_sms_age ( kt ) ! AGE tracer55 53 IF( lk_my_trc ) CALL trc_sms_my_trc ( kt ) ! MY_TRC tracers 56 54 -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcwri.F90
r7179 r7203 20 20 USE trcwri_cfc 21 21 USE trcwri_c14b 22 USE trcwri_age23 22 USE trcwri_my_trc 24 23 … … 60 59 IF( lk_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC 61 60 IF( lk_c14b ) CALL trc_wri_c14b ! surface fluxes of C14 62 IF( lk_age ) CALL trc_wri_age ! AGE tracer63 61 IF( lk_my_trc ) CALL trc_wri_my_trc ! MY_TRC tracers 64 62 !
Note: See TracChangeset
for help on using the changeset viewer.