New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7203 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC – NEMO

Ignore:
Timestamp:
2016-11-07T17:59:36+01:00 (7 years ago)
Author:
timgraham
Message:

Remove age tracer as this conflicts with changes for MEDUSA. This will need to be added as a separate branch in suites

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  
    2525   USE par_c14b   , ONLY : jp_c14b_trd     !: number of tracers in C14 
    2626 
    27    USE par_age   , ONLY : jp_age         !: number of tracers in AGE 
    28    USE par_age   , ONLY : jp_age_2d      !: number of tracers in AGE 
    29    USE par_age   , ONLY : jp_age_3d      !: number of tracers in AGE 
    30    USE par_age   , ONLY : jp_age_trd     !: number of tracers in AGE 
    31  
    3227   IMPLICIT NONE 
    3328 
    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 !: 
    3833 
    3934#if defined key_my_trc 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90

    r7179 r7203  
    7373      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
    7474      ! 
    75       INTEGER ::   jk, jn 
     75      INTEGER ::   jk  
    7676      CHARACTER (len=22) ::   charout 
    7777      REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn  ! effective velocity 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP/trcrad.F90

    r7179 r7203  
    6161      ENDIF 
    6262 
    63       IF( lk_age     )   CALL trc_rad_sms( kt, trb, trn, jp_age0 , jp_age1               )  ! AGE tracer 
    6463      IF( lk_cfc     )   CALL trc_rad_sms( kt, trb, trn, jp_cfc0 , jp_cfc1               )  ! CFC model 
    6564      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  
    1414   USE par_c14b      ! C14 bomb tracer 
    1515   USE par_cfc       ! CFC 11 and 12 tracers 
    16    USE par_age       ! AGE  tracer 
    1716   USE par_my_trc    ! user defined passive tracers 
    1817 
     
    2524   ! Passive tracers : Total size 
    2625   ! ---------------               ! 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_trc 
    28    INTEGER, PUBLIC,  PARAMETER ::   jpdia2d  =  jp_pisces_2d  + jp_cfc_2d  + jp_c14b_2d + jp_age_2d + jp_my_trc_2d 
    29    INTEGER, PUBLIC,  PARAMETER ::   jpdia3d  =  jp_pisces_3d  + jp_cfc_3d  + jp_c14b_3d + jp_age_3d + jp_my_trc_3d 
     26   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 
    3029   !                     ! 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_trd 
     30   INTEGER, PUBLIC,  PARAMETER ::   jpdiabio =  jp_pisces_trd + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd 
    3231    
    3332   !  1D configuration ("key_c1d") 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r7179 r7203  
    2323   USE trcini_pisces   ! PISCES   initialisation 
    2424   USE trcini_c14b     ! C14 bomb initialisation 
    25    USE trcini_age      ! AGE      initialisation 
    2625   USE trcini_my_trc   ! MY_TRC   initialisation 
    2726   USE trcdta          ! initialisation from files 
     
    10099      IF( lk_cfc     )       CALL trc_ini_cfc          ! CFC     tracers 
    101100      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 
    104102 
    105103      CALL trc_ice_ini                                 ! Tracers in sea ice 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r7179 r7203  
    2424   USE trcnam_cfc        ! CFC SMS namelist 
    2525   USE trcnam_c14b       ! C14 SMS namelist 
    26    USE trcnam_age        ! AGE SMS namelist 
    2726   USE trcnam_my_trc     ! MY_TRC SMS namelist 
    2827   USE trd_oce        
     
    162161      ENDIF 
    163162 
    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' 
    174169      ENDIF 
    175170      ! 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r7179 r7203  
    2727   USE trcnam_trp 
    2828   USE iom 
    29    USE in_out_manager , ONLY : ln_rstdate 
    3029   USE daymod 
    3130   IMPLICIT NONE 
     
    4948      !!---------------------------------------------------------------------- 
    5049      INTEGER, INTENT(in) ::   kt       ! number of iteration 
    51       INTEGER             ::   iyear, imonth, iday 
    52       REAL (wp)           ::   zsec 
    5350      ! 
    5451      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step define as a character 
     
    8178      ! 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 
    8279      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 
    9183         ENDIF 
    9284         ! create the file 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

    r7179 r7203  
    1818   USE trcsms_cfc         ! CFC 11 & 12 
    1919   USE trcsms_c14b        ! C14b tracer  
    20    USE trcsms_age         ! AGE tracer  
    2120   USE trcsms_my_trc      ! MY_TRC  tracers 
    2221   USE prtctl_trc         ! Print control for debbuging 
     
    5251      IF( lk_cfc     )   CALL trc_sms_cfc    ( kt )    ! surface fluxes of CFC 
    5352      IF( lk_c14b    )   CALL trc_sms_c14b   ( kt )    ! surface fluxes of C14 
    54       IF( lk_age     )   CALL trc_sms_age    ( kt )    ! AGE tracer 
    5553      IF( lk_my_trc  )   CALL trc_sms_my_trc ( kt )    ! MY_TRC  tracers 
    5654 
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

    r7179 r7203  
    2020   USE trcwri_cfc 
    2121   USE trcwri_c14b 
    22    USE trcwri_age 
    2322   USE trcwri_my_trc 
    2423 
     
    6059      IF( lk_cfc     )   CALL trc_wri_cfc        ! surface fluxes of CFC 
    6160      IF( lk_c14b    )   CALL trc_wri_c14b       ! surface fluxes of C14 
    62       IF( lk_age     )   CALL trc_wri_age        ! AGE tracer 
    6361      IF( lk_my_trc  )   CALL trc_wri_my_trc     ! MY_TRC  tracers 
    6462      ! 
Note: See TracChangeset for help on using the changeset viewer.