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 6041 for branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/TOP_SRC/trcnam.F90 – NEMO

Ignore:
Timestamp:
2015-12-14T10:06:06+01:00 (8 years ago)
Author:
timgraham
Message:

Merged head of trunk into branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r5656 r6041  
    2020   USE oce_trc           ! shared variables between ocean and passive tracers 
    2121   USE trc               ! passive tracers common variables 
    22    USE trcnam_trp        ! Transport namelist 
    2322   USE trcnam_pisces     ! PISCES namelist 
    2423   USE trcnam_cfc        ! CFC SMS namelist 
    … …  
    3534   PUBLIC trc_nam      ! called in trcini 
    3635 
    37    !! * Substitutions 
    38 #  include "top_substitute.h90" 
    3936   !!---------------------------------------------------------------------- 
    4037   !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    … …  
    4239   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    4340   !!---------------------------------------------------------------------- 
    44  
    4541CONTAINS 
    46  
    4742 
    4843   SUBROUTINE trc_nam 
    … …  
    5752      !!--------------------------------------------------------------------- 
    5853      INTEGER  ::   jn                  ! dummy loop indice 
    59       !                                        !   Parameters of the run  
    60       IF( .NOT. lk_offline ) CALL trc_nam_run 
    61        
    62       !                                        !  passive tracer informations 
    63       CALL trc_nam_trc 
    64        
    65       !                                        !   Parameters of additional diagnostics 
    66       CALL trc_nam_dia 
    67  
    68       !                                        !   namelist of transport 
    69       CALL trc_nam_trp 
    70  
    71  
    72       IF( ln_rsttr )                      ln_trcdta = .FALSE.   ! restart : no need of clim data 
    73       ! 
    74       IF( ln_trcdmp .OR. ln_trcdmp_clo )  ln_trcdta = .TRUE.   ! damping : need to have clim data 
    75       ! 
    76       IF( .NOT.ln_trcdta ) THEN 
    77          ln_trc_ini(:) = .FALSE. 
    78       ENDIF 
    79  
    80      IF(lwp) THEN                   ! control print 
     54      !                                   
     55      IF( .NOT.lk_offline )   CALL trc_nam_run     ! Parameters of the run  
     56      !                
     57                              CALL trc_nam_trc     ! passive tracer informations 
     58      !                                         
     59                              CALL trc_nam_dia     ! Parameters of additional diagnostics 
     60      !                                       
     61      ! 
     62      IF( ln_rsttr                     )   ln_trcdta     = .FALSE.   ! restart : no need of clim data 
     63      ! 
     64      IF( ln_trcdmp .OR. ln_trcdmp_clo )   ln_trcdta     = .TRUE.   ! damping : need to have clim data 
     65      ! 
     66      IF( .NOT.ln_trcdta               )   ln_trc_ini(:) = .FALSE. 
     67 
     68      IF(lwp) THEN                   ! control print 
    8169         WRITE(numout,*) 
    8270         WRITE(numout,*) ' Namelist : namtrc' 
    … …  
    149137      ! Call the ice module for tracers 
    150138      ! ------------------------------- 
    151       CALL trc_nam_ice 
     139                                  CALL trc_nam_ice 
    152140 
    153141      ! namelist of SMS 
    … …  
    171159   END SUBROUTINE trc_nam 
    172160 
     161 
    173162   SUBROUTINE trc_nam_run 
    174163      !!--------------------------------------------------------------------- 
    … …  
    180169      NAMELIST/namtrc_run/ nn_dttrc, nn_writetrc, ln_rsttr, nn_rsttr, ln_top_euler, & 
    181170        &                  cn_trcrst_indir, cn_trcrst_outdir, cn_trcrst_in, cn_trcrst_out 
    182  
    183  
     171      ! 
    184172      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    185  
    186       !!--------------------------------------------------------------------- 
    187  
    188  
     173      !!--------------------------------------------------------------------- 
     174      ! 
    189175      IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists' 
    190176      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    … …  
    220206    END SUBROUTINE trc_nam_run 
    221207 
     208 
    222209   SUBROUTINE trc_nam_ice 
    223210      !!--------------------------------------------------------------------- 
    … …  
    229216      !! 
    230217      !!--------------------------------------------------------------------- 
    231       ! --- Variable declarations --- ! 
    232218      INTEGER :: jn      ! dummy loop indices 
    233219      INTEGER :: ios     ! Local integer output status for namelist read 
    234  
    235       ! --- Namelist declarations --- ! 
     220      ! 
    236221      TYPE(TRC_I_NML), DIMENSION(jptra) :: sn_tri_tracer 
     222      !! 
    237223      NAMELIST/namtrc_ice/ nn_ice_tr, sn_tri_tracer 
    238  
     224      !!--------------------------------------------------------------------- 
     225      ! 
    239226      IF(lwp) THEN 
    240227         WRITE(numout,*) 
    … …  
    271258   END SUBROUTINE trc_nam_ice 
    272259 
     260 
    273261   SUBROUTINE trc_nam_trc 
    274262      !!--------------------------------------------------------------------- 
    … …  
    278266      !! 
    279267      !!--------------------------------------------------------------------- 
    280       TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer  ! type of tracer for saving if not key_iomput 
    281       !! 
    282       NAMELIST/namtrc/ sn_tracer, ln_trcdta,ln_trcdmp, ln_trcdmp_clo 
    283    
    284268      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    285269      INTEGER  ::   jn                  ! dummy loop indice 
     270      ! 
     271      TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer  ! type of tracer for saving if not key_iomput 
     272      !! 
     273      NAMELIST/namtrc/ sn_tracer, ln_trcdta,ln_trcdmp, ln_trcdmp_clo 
    286274      !!--------------------------------------------------------------------- 
    287275      IF(lwp) WRITE(numout,*) 
    288276      IF(lwp) WRITE(numout,*) 'trc_nam : read the passive tracer namelists' 
    289277      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    290  
    291278 
    292279      REWIND( numnat_ref )              ! Namelist namtrc in reference namelist : Passive tracer variables 
    … …  
    306293         ln_trc_wri(jn) =       sn_tracer(jn)%llsave 
    307294      END DO 
    308        
    309     END SUBROUTINE trc_nam_trc 
     295      ! 
     296   END SUBROUTINE trc_nam_trc 
    310297 
    311298 
    … …  
    320307      !!                ( (PISCES, CFC, MY_TRC ) 
    321308      !!--------------------------------------------------------------------- 
     309      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    322310      INTEGER ::  ierr 
     311      !! 
    323312#if defined key_trdmxl_trc  || defined key_trdtrc 
    324313      NAMELIST/namtrc_trd/ nn_trd_trc, nn_ctls_trc, rn_ucf_trc, & 
    … …  
    327316#endif 
    328317      NAMELIST/namtrc_dia/ ln_diatrc, ln_diabio, nn_writedia, nn_writebio 
    329  
    330       INTEGER  ::   ios                 ! Local integer output status for namelist read 
    331318      !!--------------------------------------------------------------------- 
    332319 
Note: See TracChangeset for help on using the changeset viewer.