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 8345 for branches/NERC – NEMO

Changeset 8345 for branches/NERC


Ignore:
Timestamp:
2017-07-17T19:43:02+02:00 (7 years ago)
Author:
jpalmier
Message:

jpalm -- swich back passive tracer module calling order

Location:
branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC
Files:
10 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/AGE/par_age.F90

    r7703 r8345  
    1515   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
    1616 
    17    USE par_medusa , ONLY : jp_medusa       !: number of tracers in MEDUSA 
    18    USE par_medusa , ONLY : jp_medusa_2d    !: number of 2D diag in MEDUSA 
    19    USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in MEDUSA 
    20    USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in MEDUSA 
    21  
    22    USE par_idtra  , ONLY : jp_idtra        !: number of tracers in MEDUSA 
    23    USE par_idtra  , ONLY : jp_idtra_2d     !: number of tracers in MEDUSA 
    24    USE par_idtra  , ONLY : jp_idtra_3d     !: number of tracers in MEDUSA 
    25    USE par_idtra  , ONLY : jp_idtra_trd    !: number of tracers in MEDUSA 
    26  
    2717   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC 
    2818   USE par_cfc    , ONLY : jp_cfc_2d       !: number of tracers in CFC 
     
    3727   IMPLICIT NONE 
    3828 
    39    INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     + jp_medusa     +            & 
    40                       jp_idtra      + jp_cfc     + jp_c14b     !:  cum. number of pass. tracers 
    41    INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  + jp_medusa_2d  +            & 
    42                       jp_idtra_2d   + jp_cfc_2d  + jp_c14b_2d  !: 
    43    INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  + jp_medusa_3d  +            & 
    44                       jp_idtra_3d   + jp_cfc_3d  + jp_c14b_3d  !: 
    45    INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd + jp_medusa_trd +            & 
    46                       jp_idtra_trd  + jp_cfc_trd + jp_c14b_trd !: 
     29   INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     + jp_cfc        + jp_c14b     !:  cum. number of pass. tracers 
     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 !: 
    4733 
    4834#if defined key_age 
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/C14b/par_c14b.F90

    r8280 r8345  
    1111   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
    1212 
    13    USE par_medusa , ONLY : jp_medusa       !: number of tracers in MEDUSA 
    14    USE par_medusa , ONLY : jp_medusa_2d    !: number of 2D diag in MEDUSA 
    15    USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in MEDUSA 
    16    USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in MEDUSA 
    17  
    18    USE par_idtra  , ONLY : jp_idtra        !: number of tracers in MEDUSA 
    19    USE par_idtra  , ONLY : jp_idtra_2d     !: number of tracers in MEDUSA 
    20    USE par_idtra  , ONLY : jp_idtra_3d     !: number of tracers in MEDUSA 
    21    USE par_idtra  , ONLY : jp_idtra_trd    !: number of tracers in MEDUSA 
    22  
    2313   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC 
    2414   USE par_cfc    , ONLY : jp_cfc_2d       !: number of 2D diag in CFC 
     
    2616   USE par_cfc    , ONLY : jp_cfc_trd      !: number of biological diag in CFC 
    2717 
    28  
    2918   IMPLICIT NONE 
    3019 
    31    INTEGER, PARAMETER ::   jp_lb      =  jp_pisces     + jp_medusa     +   & 
    32                       jp_idtra      + jp_cfc                               !: cum. number of pass. tracers 
    33    INTEGER, PARAMETER ::   jp_lb_2d   =  jp_pisces_2d  + jp_medusa_2d  +   & 
    34                       jp_idtra_2d   + jp_cfc_2d  !: 
    35    INTEGER, PARAMETER ::   jp_lb_3d   =  jp_pisces_3d  + jp_medusa_3d  +   & 
    36                       jp_idtra_3d   + jp_cfc_3d  !: 
    37    INTEGER, PARAMETER ::   jp_lb_trd  =  jp_pisces_trd + jp_medusa_trd +   & 
    38                       jp_idtra_trd  + jp_cfc_trd !: 
     20   INTEGER, PARAMETER ::   jp_lb      =  jp_pisces     + jp_cfc            !: cum. number of pass. tracers 
     21   INTEGER, PARAMETER ::   jp_lb_2d   =  jp_pisces_2d  + jp_cfc_2d         !: 
     22   INTEGER, PARAMETER ::   jp_lb_3d   =  jp_pisces_3d  + jp_cfc_3d         !: 
     23   INTEGER, PARAMETER ::   jp_lb_trd  =  jp_pisces_trd + jp_cfc_trd        !: 
    3924    
    4025#if defined key_c14b 
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/CFC/par_cfc.F90

    r8280 r8345  
    1616   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
    1717 
    18    USE par_medusa , ONLY : jp_medusa       !: number of tracers in MEDUSA 
    19    USE par_medusa , ONLY : jp_medusa_2d    !: number of 2D diag in MEDUSA 
    20    USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in MEDUSA 
    21    USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in MEDUSA 
    22  
    23    USE par_idtra  , ONLY : jp_idtra        !: number of tracers in ideal tracer 
    24    USE par_idtra  , ONLY : jp_idtra_2d     !: number of tracers in ideal tracer 
    25    USE par_idtra  , ONLY : jp_idtra_3d     !: number of tracers in ideal tracer 
    26    USE par_idtra  , ONLY : jp_idtra_trd    !: number of tracers in ideal tracer 
    27  
    2818   IMPLICIT NONE 
    2919 
    30    INTEGER, PARAMETER ::   jp_lc      =  jp_pisces     + jp_medusa     + & 
    31                       jp_idtra     !: cumulative number of passive tracers 
    32    INTEGER, PARAMETER ::   jp_lc_2d   =  jp_pisces_2d  + jp_medusa_2d  + & 
    33                       jp_idtra_2d !: 
    34    INTEGER, PARAMETER ::   jp_lc_3d   =  jp_pisces_3d  + jp_medusa_3d  + & 
    35                       jp_idtra_3d !: 
    36    INTEGER, PARAMETER ::   jp_lc_trd  =  jp_pisces_trd + jp_medusa_trd + & 
    37                       jp_idtra_trd !: 
     20   INTEGER, PARAMETER ::   jp_lc      =  jp_pisces            !: cumulative number of passive tracers 
     21   INTEGER, PARAMETER ::   jp_lc_2d   =  jp_pisces_2d         !: 
     22   INTEGER, PARAMETER ::   jp_lc_3d   =  jp_pisces_3d         !: 
     23   INTEGER, PARAMETER ::   jp_lc_trd  =  jp_pisces_trd        !: 
    3824    
    3925#if defined key_cfc 
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/IDTRA/par_idtra.F90

    r6164 r8345  
    1616   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
    1717 
    18    USE par_medusa , ONLY : jp_medusa       !: number of tracers in MEDUSA 
    19    USE par_medusa , ONLY : jp_medusa_2d    !: number of 2D diag in MEDUSA 
    20    USE par_medusa , ONLY : jp_medusa_3d    !: number of 3D diag in MEDUSA 
    21    USE par_medusa , ONLY : jp_medusa_trd   !: number of biological diag in MEDUSA 
     18   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC 
     19   USE par_cfc    , ONLY : jp_cfc_2d       !: number of tracers in CFC 
     20   USE par_cfc    , ONLY : jp_cfc_3d       !: number of tracers in CFC 
     21   USE par_cfc    , ONLY : jp_cfc_trd      !: number of tracers in CFC 
     22 
     23   USE par_c14b   , ONLY : jp_c14b         !: number of tracers in C14 
     24   USE par_c14b   , ONLY : jp_c14b_2d      !: number of tracers in C14 
     25   USE par_c14b   , ONLY : jp_c14b_3d      !: number of tracers in C14 
     26   USE par_c14b   , ONLY : jp_c14b_trd     !: number of tracers in C14 
     27 
     28   USE par_age    , ONLY : jp_age          !: number of tracers in Age 
     29   USE par_age    , ONLY : jp_age_2d       !: number of tracers in Age 
     30   USE par_age    , ONLY : jp_age_3d       !: number of tracers in Age 
     31   USE par_age    , ONLY : jp_age_trd      !: number of tracers in Age 
     32 
     33   USE par_my_trc , ONLY : jp_my_trc       !: number of tracers in my_trc 
     34   USE par_my_trc , ONLY : jp_my_trc_2d    !: number of tracers in my_trc 
     35   USE par_my_trc , ONLY : jp_my_trc_3d    !: number of tracers in my_trc 
     36   USE par_my_trc , ONLY : jp_my_trc_trd   !: number of tracers in my_trc 
    2237 
    2338   IMPLICIT NONE 
    2439 
    25    INTEGER, PARAMETER ::   jp_lp      =  jp_pisces     +  jp_medusa     !: cumulative number of passive tracers 
    26    INTEGER, PARAMETER ::   jp_lp_2d   =  jp_pisces_2d  +  jp_medusa_2d  !: 
    27    INTEGER, PARAMETER ::   jp_lp_3d   =  jp_pisces_3d  +  jp_medusa_3d  !: 
    28    INTEGER, PARAMETER ::   jp_lp_trd  =  jp_pisces_trd +  jp_medusa_trd !: 
     40   INTEGER, PARAMETER ::   jp_lp      =  jp_pisces     +  jp_age       +  & 
     41                                    jp_cfc     + jp_c14b    +  jp_my_trc     !:  cum. number of pass. tracers  
     42   INTEGER, PARAMETER ::   jp_lp_2d   =  jp_pisces_2d  + jp_age_2d     +  & 
     43                                    jp_cfc_2d  + jp_c14b_2d +  jp_my_trc_2d  !:  
     44   INTEGER, PARAMETER ::   jp_lp_3d   =  jp_pisces_3d  + jp_age_3d     +  & 
     45                                    jp_cfc_3d  + jp_c14b_3d +  jp_my_trc_3d  !: 
     46   INTEGER, PARAMETER ::   jp_lp_trd  =  jp_pisces_trd + jp_age_trd    +  & 
     47                                    jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd !: 
    2948 
    3049#if defined key_idtra 
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/par_medusa.F90

    r6164 r8345  
    2020   USE par_pisces , ONLY : jp_pisces_trd   !: number of biological diag in PISCES 
    2121 
     22   USE par_cfc    , ONLY : jp_cfc          !: number of tracers in CFC 
     23   USE par_cfc    , ONLY : jp_cfc_2d       !: number of tracers in CFC 
     24   USE par_cfc    , ONLY : jp_cfc_3d       !: number of tracers in CFC 
     25   USE par_cfc    , ONLY : jp_cfc_trd      !: number of tracers in CFC 
     26 
     27   USE par_c14b   , ONLY : jp_c14b         !: number of tracers in C14 
     28   USE par_c14b   , ONLY : jp_c14b_2d      !: number of tracers in C14 
     29   USE par_c14b   , ONLY : jp_c14b_3d      !: number of tracers in C14 
     30   USE par_c14b   , ONLY : jp_c14b_trd     !: number of tracers in C14 
     31 
     32   USE par_age    , ONLY : jp_age          !: number of tracers in Age  
     33   USE par_age    , ONLY : jp_age_2d       !: number of tracers in Age 
     34   USE par_age    , ONLY : jp_age_3d       !: number of tracers in Age 
     35   USE par_age    , ONLY : jp_age_trd      !: number of tracers in Age 
     36 
     37   USE par_my_trc , ONLY : jp_my_trc       !: number of tracers in my_trc 
     38   USE par_my_trc , ONLY : jp_my_trc_2d    !: number of tracers in my_trc 
     39   USE par_my_trc , ONLY : jp_my_trc_3d    !: number of tracers in my_trc 
     40   USE par_my_trc , ONLY : jp_my_trc_trd   !: number of tracers in my_trc 
     41 
     42   USE par_idtra  , ONLY : jp_idtra        !: number of tracers in IDTRA 
     43   USE par_idtra  , ONLY : jp_idtra_2d     !: number of tracers in IDTRA 
     44   USE par_idtra  , ONLY : jp_idtra_3d     !: number of tracers in IDTRA 
     45   USE par_idtra  , ONLY : jp_idtra_trd    !: number of tracers in IDTRA 
     46 
    2247   IMPLICIT NONE 
    2348 
    24    INTEGER, PARAMETER ::   jp_lm      =  jp_pisces      !:  
    25    INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d   !: 
    26    INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d   !: 
    27    INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd  !: 
     49   INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     +  jp_age     +  & 
     50                      jp_idtra      + jp_cfc     + jp_c14b    +  jp_my_trc       !:  cum. number of pass. tracers 
     51   INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  + jp_age_2d   +  & 
     52                      jp_idtra_2d   + jp_cfc_2d  + jp_c14b_2d +  jp_my_trc_2d    !: 
     53   INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  + jp_age_3d   +  & 
     54                      jp_idtra_3d   + jp_cfc_3d  + jp_c14b_3d +  jp_my_trc_3d    !: 
     55   INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd + jp_age_trd  +  & 
     56                      jp_idtra_trd  + jp_cfc_trd + jp_c14b_trd + jp_my_trc_trd   !: 
     57 
    2858 
    2959#if defined key_medusa 
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/MY_TRC/par_my_trc.F90

    r7203 r8345  
    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 
    2732   IMPLICIT NONE 
    2833 
    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 !: 
     34   INTEGER, PARAMETER ::   jp_lm      =  jp_pisces     + jp_cfc     +     & 
     35                                         jp_c14b       + jp_age      !:  
     36   INTEGER, PARAMETER ::   jp_lm_2d   =  jp_pisces_2d  + jp_cfc_2d  +     &  
     37                                         jp_c14b_2d    + jp_age_2d   !: 
     38   INTEGER, PARAMETER ::   jp_lm_3d   =  jp_pisces_3d  + jp_cfc_3d  +     &   
     39                                         jp_c14b_3d    + jp_age_3d   !: 
     40   INTEGER, PARAMETER ::   jp_lm_trd  =  jp_pisces_trd + jp_cfc_trd +     &   
     41                                         jp_c14b_trd   + jp_age_trd  !: 
    3342 
    3443#if defined key_my_trc 
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r8344 r8345  
    102102 
    103103      IF( lk_pisces  )       CALL trc_ini_pisces       ! PISCES  bio-model 
    104       IF( lk_medusa  )       CALL trc_ini_medusa       ! MEDUSA  tracers 
    105       IF( lk_idtra   )       CALL trc_ini_idtra        ! Idealize tracers 
    106104      IF( lk_cfc     )       CALL trc_ini_cfc          ! CFC     tracers 
    107105      IF( lk_c14b    )       CALL trc_ini_c14b         ! C14 bomb  tracer 
    108106      IF( lk_age     )       CALL trc_ini_age          ! AGE       tracer 
    109107      IF( lk_my_trc  )       CALL trc_ini_my_trc       ! MY_TRC  tracers 
     108      IF( lk_idtra   )       CALL trc_ini_idtra        ! Idealize tracers 
     109      IF( lk_medusa  )       CALL trc_ini_medusa       ! MEDUSA  tracers 
    110110 
    111111      CALL trc_ice_ini                                 ! Tracers in sea ice 
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r8344 r8345  
    153153               IF( ln_trdtrc(jn) ) WRITE(numout,*) '    compute ML trends for tracer number :', jn 
    154154            END DO 
    155          WRITE(numout,*) ' ' 
    156          CALL flush(numout) 
    157155         ENDIF 
    158156#endif 
     
    169167      ENDIF 
    170168 
     169      IF( lk_cfc     ) THEN   ;   CALL trc_nam_cfc         ! CFC     tracers 
     170      ELSE                    ;   IF(lwp) WRITE(numout,*) '          CFC not used' 
     171      ENDIF 
     172 
     173      IF( lk_c14b     ) THEN   ;   CALL trc_nam_c14b         ! C14 bomb     tracers 
     174      ELSE                    ;   IF(lwp) WRITE(numout,*) '          C14 not used' 
     175      ENDIF 
     176 
     177      IF( lk_age     ) THEN  ;   CALL trc_nam_age         ! AGE     tracer 
     178      ELSE                   ;   IF(lwp) WRITE(numout,*) '          AGE not used' 
     179      ENDIF 
     180 
     181      IF( lk_my_trc  ) THEN   ;   CALL trc_nam_my_trc      ! MY_TRC  tracers 
     182      ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used' 
     183      ENDIF 
     184 
     185      IF( lk_idtra   ) THEN   ;   CALL trc_nam_idtra       ! Idealize tracers 
     186      ELSE                    ;   IF(lwp) WRITE(numout,*) '          Idealize tracers not used' 
     187      ENDIF 
     188 
    171189      IF( lk_medusa  ) THEN   ;   CALL trc_nam_medusa      ! MEDUSA  tracers 
    172190      ELSE                    ;   IF(lwp) WRITE(numout,*) '          MEDUSA not used' 
    173191      ENDIF 
    174  
    175       IF( lk_idtra   ) THEN   ;   CALL trc_nam_idtra       ! Idealize tracers 
    176       ELSE                    ;   IF(lwp) WRITE(numout,*) '          Idealize tracers not used' 
    177       ENDIF 
    178  
    179       IF( lk_cfc     ) THEN   ;   CALL trc_nam_cfc         ! CFC     tracers 
    180       ELSE                    ;   IF(lwp) WRITE(numout,*) '          CFC not used' 
    181       ENDIF 
    182  
    183       IF( lk_c14b     ) THEN   ;   CALL trc_nam_c14b         ! C14 bomb     tracers 
    184       ELSE                    ;   IF(lwp) WRITE(numout,*) '          C14 not used' 
    185       ENDIF 
    186  
    187       IF( lk_age     ) THEN  ;   CALL trc_nam_age         ! AGE     tracer 
    188       ELSE                   ;   IF(lwp) WRITE(numout,*) '          AGE not used' 
    189       ENDIF 
    190  
    191       IF( lk_my_trc  ) THEN   ;   CALL trc_nam_my_trc      ! MY_TRC  tracers 
    192       ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used' 
    193       ENDIF 
    194         
    195       IF(lwp)   CALL flush(numout) 
     192      ! 
    196193   END SUBROUTINE trc_nam 
    197194 
     
    241238         WRITE(numout,*) '   Use euler integration for TRC (y/n)          ln_top_euler  = ', ln_top_euler 
    242239         WRITE(numout,*) ' ' 
    243         CALL flush(numout) 
    244240      ENDIF 
    245241      ! 
     
    332328         ln_trc_wri(jn) =       sn_tracer(jn)%llsave 
    333329      END DO 
    334       IF(lwp)  CALL flush(numout)       
    335  
     330       
    336331    END SUBROUTINE trc_nam_trc 
    337332 
     
    384379         WRITE(numout,*) '    frequency of outputs for biological trends  nn_writebio = ', nn_writebio 
    385380         WRITE(numout,*) ' ' 
    386          CALL flush(numout) 
    387381      ENDIF 
    388382 
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/trcsms.F90

    r8344 r8345  
    5252      ! 
    5353      IF( lk_pisces  )   CALL trc_sms_pisces ( kt )    ! main program of PISCES  
    54       IF( lk_medusa  )   CALL trc_sms_medusa ( kt )    ! MEDUSA  tracers 
    55       IF( lk_idtra   )   CALL trc_sms_idtra  ( kt )    ! radioactive decay of Id. tracer 
    5654      IF( lk_cfc     )   CALL trc_sms_cfc    ( kt )    ! surface fluxes of CFC 
    5755      IF( lk_c14b    )   CALL trc_sms_c14b   ( kt )    ! surface fluxes of C14 
    5856      IF( lk_age     )   CALL trc_sms_age    ( kt )    ! AGE tracer 
    5957      IF( lk_my_trc  )   CALL trc_sms_my_trc ( kt )    ! MY_TRC  tracers 
     58      IF( lk_idtra   )   CALL trc_sms_idtra  ( kt )    ! radioactive decay of Id. tracer 
     59      IF( lk_medusa  )   CALL trc_sms_medusa ( kt )    ! MEDUSA  tracers 
    6060 
    6161      IF(ln_ctl) THEN      ! print mean trends (used for debugging) 
  • branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

    r8280 r8345  
    6161      ! --------------------------------------- 
    6262      IF( lk_pisces  )   CALL trc_wri_pisces     ! PISCES  
    63       IF( lk_medusa  )   CALL trc_wri_medusa     ! MESDUSA 
    64       IF( lk_idtra   )   CALL trc_wri_idtra       ! Idealize tracers 
    6563      IF( lk_cfc     )   CALL trc_wri_cfc        ! surface fluxes of CFC 
    6664      IF( lk_c14b    )   CALL trc_wri_c14b       ! surface fluxes of C14 
    6765      IF( lk_age     )   CALL trc_wri_age        ! AGE tracer 
    6866      IF( lk_my_trc  )   CALL trc_wri_my_trc     ! MY_TRC  tracers 
     67      IF( lk_idtra   )   CALL trc_wri_idtra       ! Idealize tracers 
     68      IF( lk_medusa  )   CALL trc_wri_medusa     ! MESDUSA 
    6969      ! 
    7070      IF( nn_timing == 1 )  CALL timing_stop('trc_wri') 
Note: See TracChangeset for help on using the changeset viewer.