Changeset 7073


Ignore:
Timestamp:
2016-10-24T12:36:50+02:00 (4 years ago)
Author:
cetlod
Message:

New top interface : Update my_trc module

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  
    1313   IMPLICIT NONE 
    1414 
    15 #if defined key_my_trc 
    16    !!--------------------------------------------------------------------- 
    17    !!   'key_my_trc'                     user defined tracers (MY_TRC) 
    18    !!--------------------------------------------------------------------- 
    19    LOGICAL, PUBLIC, PARAMETER ::   lk_my_trc  = .TRUE.   !: PTS flag  
    20    INTEGER, PUBLIC            ::   jp_my_trc      !: number of PTS tracers 
    21  
    22 #else 
    23    !!--------------------------------------------------------------------- 
    24    !!   Default                           No user defined tracers (MY_TRC) 
    25    !!--------------------------------------------------------------------- 
    26    LOGICAL, PUBLIC, PARAMETER ::   lk_my_trc   = .FALSE.  !: MY_TRC flag  
    27    INTEGER, PUBLIC            ::   jp_my_trc        !: No MY_TRC tracers 
    28 #endif 
    29  
    3015   ! Starting/ending PISCES do-loop indices (N.B. no PISCES : jpl_pcs < jpf_pcs the do-loop are never done) 
    3116   INTEGER, PUBLIC ::   jp_myt0             !: First index of MY_TRC passive tracers 
    3217   INTEGER, PUBLIC ::   jp_myt1             !: Last  index of MY_TRC passive tracers 
    3318 
    34    INTEGER, PUBLIC ::   jpmyt0, jpmty1, jpmyt2         !: Last  index of MY_TRC passive tracers 
     19   INTEGER, PUBLIC ::   jpmyt0, jpmty1, jpmyt2         !: index of MY_TRC passive tracers 
    3520   !!====================================================================== 
    3621END MODULE par_my_trc 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcice_my_trc.F90

    r5439 r7073  
    22   !!====================================================================== 
    33   !!                         ***  MODULE trcice_my_trc  *** 
    4    !!---------------------------------------------------------------------- 
    5 #if defined key_my_trc 
    6    !!---------------------------------------------------------------------- 
    7    !!   'key_my_trc'                                               CFC tracers 
    84   !!---------------------------------------------------------------------- 
    95   !! trc_ice_my_trc       : MY_TRC model main routine 
     
    3430   END SUBROUTINE trc_ice_ini_my_trc 
    3531 
    36 #else 
    37    !!---------------------------------------------------------------------- 
    38    !!   Dummy module                                        No MY_TRC model 
    39    !!---------------------------------------------------------------------- 
    40 CONTAINS 
    41    SUBROUTINE trc_ice_ini_my_trc             ! Empty routine 
    42    END SUBROUTINE trc_ice_ini_my_trc 
    43 #endif 
    4432 
    4533   !!====================================================================== 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90

    r7041 r7073  
    55   !!====================================================================== 
    66   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code 
    7    !!---------------------------------------------------------------------- 
    8 #if defined key_my_trc 
    9    !!---------------------------------------------------------------------- 
    10    !!   'key_my_trc'                                               CFC tracers 
    117   !!---------------------------------------------------------------------- 
    128   !! trc_ini_my_trc   : MY_TRC model initialisation 
     
    3733      !! ** Method  : - Read the namcfc namelist and check the parameter values 
    3834      !!---------------------------------------------------------------------- 
    39       INTEGER              ::  jn 
    40       CHARACTER(len = 20)  ::  cltra 
    41  
    42  
    43       jp_my_trc = 1 
    44       ! assign an index in trc arrays for each prognostic variables 
    45       DO jn = 1, jptra 
    46         cltra = ctrcnm(jn)  
    47         IF( cltra == 'MYTRC'   .OR. cltra == 'mytrc'  )   jpmyt0 = jn  
    48         IF( cltra == 'MYTRC1'  .OR. cltra == 'mytrc1' )   jpmyt1 = jn  
    49         IF( cltra == 'MYTRC2'  .OR. cltra == 'mytrc2' )   jpmyt2 = jn  
    50       ENDDO 
    51     
    52       IF( jp_my_trc == 1 ) THEN 
    53         jp_myt0  = jpmyt0 
    54       ELSE 
    55         jp_myt0 = MIN( jpmyt0, jpmyt1, jpmyt2 )  
    56       ENDIF 
    57       jp_myt1 = jp_myt0 + jp_my_trc - 1 
    58  
    59  
    60       IF( lwp ) THEN 
    61         WRITE(numout,*) '' 
    62         WRITE(numout,*) ' First index of MYTRC model in the passive tracer array   jp_myt0 = ', jp_myt0 
    63         WRITE(numout,*) ' Last  index of MYTRC model in the passive tracer array   jp_myt1 = ', jp_myt1 
    64         WRITE(numout,*)  
    65       ENDIF 
    66  
    6735 
    6836      !                       ! Allocate MY_TRC arrays 
     
    8149   END SUBROUTINE trc_ini_my_trc 
    8250 
    83 #else 
    84    !!---------------------------------------------------------------------- 
    85    !!   Dummy module                                        No MY_TRC model 
    86    !!---------------------------------------------------------------------- 
    87 CONTAINS 
    88    SUBROUTINE trc_ini_my_trc             ! Empty routine 
    89    END SUBROUTINE trc_ini_my_trc 
    90 #endif 
    9151 
    9252   !!====================================================================== 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcnam_my_trc.F90

    r3680 r7073  
    55   !!====================================================================== 
    66   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code 
    7    !!---------------------------------------------------------------------- 
    8 #if defined key_my_trc 
    9    !!---------------------------------------------------------------------- 
    10    !!   'key_my_trc'   :                                       MY_TRC model 
    117   !!---------------------------------------------------------------------- 
    128   !! trc_nam_my_trc      : MY_TRC model initialisation 
     
    4339   END SUBROUTINE trc_nam_my_trc 
    4440    
    45 #else 
    46    !!---------------------------------------------------------------------- 
    47    !!  Dummy module :                                             No MY_TRC 
    48    !!---------------------------------------------------------------------- 
    49 CONTAINS 
    50    SUBROUTINE trc_nam_my_trc                      ! Empty routine 
    51    END  SUBROUTINE  trc_nam_my_trc 
    52 #endif   
    5341 
    5442   !!====================================================================== 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90

    r6140 r7073  
    55   !!====================================================================== 
    66   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code 
    7    !!---------------------------------------------------------------------- 
    8 #if defined key_my_trc 
    9    !!---------------------------------------------------------------------- 
    10    !!   'key_my_trc'                                               CFC tracers 
    117   !!---------------------------------------------------------------------- 
    128   !! trc_sms_my_trc       : MY_TRC model main routine 
     
    8985 
    9086 
    91 #else 
    92    !!---------------------------------------------------------------------- 
    93    !!   Dummy module                                        No MY_TRC model 
    94    !!---------------------------------------------------------------------- 
    95 CONTAINS 
    96    SUBROUTINE trc_sms_my_trc( kt )             ! Empty routine 
    97       INTEGER, INTENT( in ) ::   kt 
    98       WRITE(*,*) 'trc_sms_my_trc: You should not have seen this print! error?', kt 
    99    END SUBROUTINE trc_sms_my_trc 
    100 #endif 
    101  
    10287   !!====================================================================== 
    10388END MODULE trcsms_my_trc 
  • branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90

    r6140 r7073  
    66   !! History :   1.0  !  2009-05 (C. Ethe)  Original code 
    77   !!---------------------------------------------------------------------- 
    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 
    119   !!---------------------------------------------------------------------- 
    1210   !! trc_wri_my_trc   :  outputs of concentration fields 
    1311   !!---------------------------------------------------------------------- 
     12   USE par_trc         ! passive tracers common variables  
    1413   USE trc         ! passive tracers common variables  
    1514   USE iom         ! I/O manager 
     
    3635      DO jn = jp_myt0, jp_myt1 
    3736         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) ) 
    3938      END DO 
    4039      ! 
     
    4241 
    4342#else 
    44    !!---------------------------------------------------------------------- 
    45    !!  Dummy module :                                     No passive tracer 
    46    !!---------------------------------------------------------------------- 
    47    PUBLIC trc_wri_my_trc 
     43 
    4844CONTAINS 
    49    SUBROUTINE trc_wri_my_trc                     ! Empty routine   
     45 
     46   SUBROUTINE trc_wri_my_trc 
     47      ! 
    5048   END SUBROUTINE trc_wri_my_trc 
     49 
    5150#endif 
    5251 
    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    !!====================================================================== 
    5852END MODULE trcwri_my_trc 
Note: See TracChangeset for help on using the changeset viewer.