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 7954 for branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 – NEMO

Ignore:
Timestamp:
2017-04-24T09:19:00+02:00 (7 years ago)
Author:
gm
Message:

#1880 (HPC-09): OPA & TOP replace key_trabbl by ln_trabbl + in CONFIG, remove reference to key_zdfXXX and key_trabbl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r7812 r7954  
    88#if defined key_top 
    99   !!---------------------------------------------------------------------- 
    10    !!   trc_stp      : passive tracer system time-stepping 
    11    !!---------------------------------------------------------------------- 
    12    USE oce_trc          ! ocean dynamics and active tracers variables 
     10   !!   trc_stp       : passive tracer system time-stepping 
     11   !!---------------------------------------------------------------------- 
     12   USE oce_trc        ! ocean dynamics and active tracers variables 
    1313   USE sbc_oce 
    1414   USE trc 
    15    USE trctrp           ! passive tracers transport 
    16    USE trcsms           ! passive tracers sources and sinks 
     15   USE trctrp         ! passive tracers transport 
     16   USE trcsms         ! passive tracers sources and sinks 
    1717   USE trcwri 
    1818   USE trcrst 
     19   USE trcsub         ! 
    1920   USE trdtrc_oce 
    2021   USE trdmxl_trc 
    21    USE prtctl_trc       ! Print control for debbuging 
    22    USE iom 
    23    USE in_out_manager 
    24    USE trcsub 
     22   ! 
     23   USE prtctl_trc     ! Print control for debbuging 
     24   USE iom            ! 
     25   USE in_out_manager ! 
    2526 
    2627   IMPLICIT NONE 
     
    2930   PUBLIC   trc_stp    ! called by step 
    3031 
    31    REAL(wp), DIMENSION(:,:,:), SAVE, ALLOCATABLE ::   qsr_arr ! save qsr during TOP time-step 
    32    REAL(wp) :: rdt_sampl 
    33    INTEGER  :: nb_rec_per_day, ktdcy 
    34    REAL(wp) :: rsecfst, rseclast 
    35    LOGICAL  :: llnew 
     32   LOGICAL  ::   llnew                   ! ??? 
     33   REAL(wp) ::   rdt_sampl               ! ??? 
     34   INTEGER  ::   nb_rec_per_day, ktdcy   ! ??? 
     35   REAL(wp) ::   rsecfst, rseclast       ! ??? 
     36   REAL(wp), DIMENSION(:,:,:), SAVE, ALLOCATABLE ::   qsr_arr   ! save qsr during TOP time-step 
    3637 
    3738   !!---------------------------------------------------------------------- 
     
    4647      !!                     ***  ROUTINE trc_stp  *** 
    4748      !!                       
    48       !! ** Purpose : Time loop of opa for passive tracer 
     49      !! ** Purpose :   Time loop of opa for passive tracer 
    4950      !!  
    50       !! ** Method  :  
    51       !!              Compute the passive tracers trends  
    52       !!              Update the passive tracers 
     51      !! ** Method  :   Compute the passive tracers trends  
     52      !!                Update the passive tracers 
    5353      !!------------------------------------------------------------------- 
    54       INTEGER, INTENT( in ) ::  kt      ! ocean time-step index 
    55       INTEGER               ::  jk, jn  ! dummy loop indices 
    56       REAL(wp)              ::  ztrai 
    57       CHARACTER (len=25)    ::  charout  
    58  
     54      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
     55      ! 
     56      INTEGER ::   jk, jn   ! dummy loop indices 
     57      REAL(wp)::   ztrai    ! local scalar 
     58      CHARACTER (len=25) ::   charout   ! 
    5959      !!------------------------------------------------------------------- 
    6060      ! 
     
    115115      ! 
    116116   END SUBROUTINE trc_stp 
     117 
    117118 
    118119   SUBROUTINE trc_mean_qsr( kt ) 
     
    128129      !!              In coupled mode, the sampling is done at every coupling frequency  
    129130      !!---------------------------------------------------------------------- 
    130       INTEGER, INTENT(in) ::   kt 
    131       INTEGER  :: jn 
    132       REAL(wp) :: zkt, zrec 
    133       CHARACTER(len=1)               ::   cl1                      ! 1 character 
    134       CHARACTER(len=2)               ::   cl2                      ! 2 characters 
    135  
     131      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
     132      ! 
     133      INTEGER  ::   jn   ! dummy loop indices 
     134      REAL(wp) ::   zkt, zrec     ! local scalars 
     135      CHARACTER(len=1) ::   cl1   ! 1 character 
     136      CHARACTER(len=2) ::   cl2   ! 2 characters 
     137      !!---------------------------------------------------------------------- 
     138      ! 
    136139      IF( kt == nittrc000 ) THEN 
    137140         IF( ln_cpl )  THEN   
     
    143146         ENDIF 
    144147         ! 
    145          IF( lwp ) THEN 
     148         IF(lwp) THEN 
    146149            WRITE(numout,*)  
    147150            WRITE(numout,*) ' Sampling frequency dt = ', rdt_sampl, 's','   Number of sampling per day  nrec = ', nb_rec_per_day 
     
    171174                    CALL iom_get( numrtr, jpdom_autoglo, 'qsr_arr_'//cl2, qsr_arr(:,:,jn) )   !  A mean of qsr 
    172175                  ENDIF 
    173               ENDDO 
     176              END DO 
    174177            ELSE 
    175178               DO jn = 1, nb_rec_per_day 
     
    184187            DO jn = 1, nb_rec_per_day 
    185188               qsr_arr(:,:,jn) = qsr_mean(:,:) 
    186             ENDDO 
     189            END DO 
    187190         ENDIF 
    188191         ! 
     
    220223               CALL iom_rstput( kt, nitrst, numrtw, 'qsr_arr_'//cl2, qsr_arr(:,:,jn) ) 
    221224             ENDIF 
    222          ENDDO 
     225         END DO 
    223226         CALL iom_rstput( kt, nitrst, numrtw, 'qsr_mean', qsr_mean(:,:) ) 
    224227      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.