Changeset 773


Ignore:
Timestamp:
2007-12-17T17:55:32+01:00 (13 years ago)
Author:
gm
Message:

dev_001_GM - small changes : compilation OK

Location:
branches/dev_001_GM/NEMO/TOP_SRC
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

    r772 r773  
    1919   USE trccfc          ! CFC sms trends 
    2020   USE sms             ! Source Minus Sink variables 
     21   USE oce_trc         ! ocean variables 
     22   USE trp_trc         ! 
     23 
    2124   USE iom 
    2225 
     
    179182      DO jj = 2 , jpjm1 
    180183         DO ji = 2, jpim1 
    181             zcoef = e1t(ji,jj) * e2t(ji,jj) * fse3t(ji,jj,1)) * tmask(ji,jj,1) * tmask_i(ji,jj) * raass 
     184            zcoef = e1t(ji,jj) * e2t(ji,jj) * fse3t(ji,jj,1) * tmask(ji,jj,1) * tmask_i(ji,jj) * raass 
    182185            rivpo4input = rivpo4input + rivinp(ji,jj) * zcoef 
    183186            rivalkinput = rivalkinput + cotdep(ji,jj) * zcoef 
  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trclsm_pisces.F90

    r772 r773  
    1    !!---------------------------------------------------------------------- 
    2    !!                     ***  trclsm.pisces.h90  ***   
    3    !! TOP :   Definition some run parameter for PISCES biological model 
    4    !!---------------------------------------------------------------------- 
     1MODULE trclsm_pisces 
     2   !!====================================================================== 
     3   !!                      ***  MODULE trclsm_lobster  *** 
     4   !! TOP :   initialisation of some run parameters for PISCES bio-model 
     5   !!====================================================================== 
    56   !! History :    -   !  1999-10 (M.A. Foujols, M. Levy) original code 
    67   !!              -   !  2000-01 (L. Bopp) hamocc3, p3zd 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

    r772 r773  
    7272      !! * Local declarations 
    7373      INTEGER  ::   ji, jj, jk,jn           ! dummy loop indices 
    74       REAL(wp) ::   ztra                    ! temporary scalar 
    7574 
    7675      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   & 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r772 r773  
    7070      INTEGER, INTENT( in ) ::   kt         ! ocean time-step index 
    7171      !! * Local declarations 
    72       INTEGER ::   ji, jj, jk,jn   ! dummy loop indices 
    73       REAL(wp) ::   zfact, ztra    ! temporary scalar 
     72      INTEGER  ::   ji, jj, jk, jn   ! dummy loop indices 
     73      REAL(wp) ::   zfact            ! temporary scalar 
    7474      CHARACTER (len=22) :: charout 
    7575      !!---------------------------------------------------------------------- 
  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp.F90

    r772 r773  
    1515   USE trc             ! ocean passive tracers variables  
    1616   USE trctrp_lec      ! passive tracers transport parameters 
     17   USE prtctl_trc     ! Print control for debbuging 
    1718 
    1819   USE trcbbl          ! bottom boundary layer               (trc_bbl routine) 
     
    6768      !!---------------------------------------------------------------------- 
    6869      INTEGER, INTENT( in ) ::  kt  ! ocean time-step index 
     70      !! 
     71      CHARACTER (len=25) :: charout 
    6972      !! --------------------------------------------------------------------- 
    7073 
  • branches/dev_001_GM/NEMO/TOP_SRC/initrc.F90

    r772 r773  
    5151      !!                or read data or analytical formulation 
    5252      !!--------------------------------------------------------------------- 
    53       INTEGER ::   ji, jj, jk, jn    ! dummy loop indices 
     53      INTEGER ::   jk, jn    ! dummy loop indices 
    5454      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zbt   ! workspace: masked grid volume 
    5555      !!--------------------------------------------------------------------- 
     
    6464      END DO 
    6565#if defined key_off_degrad 
    66       zbt(:,:,:) = zbt(:,:,:) * facvol(ji,jj,jk)      ! degrad option: reduction by facvol 
     66      zbt(:,:,:) = zbt(:,:,:) * facvol(:,:,jk)      ! degrad option: reduction by facvol 
    6767#endif 
    6868 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcctl.F90

    r772 r773  
    8383# if defined key_lobster 
    8484#   include "trcctl.lobster1.h90" 
     85 
    8586# elif defined key_pisces 
    8687#   include "trcctl.pisces.h90" 
     88 
    8789# elif defined key_cfc 
    8890#   include "trcctl.cfc.h90" 
     91 
    8992# else 
    9093      IF(lwp) WRITE (numout,*) '       No Source/Sink ' 
  • branches/dev_001_GM/NEMO/TOP_SRC/trcdtr.F90

    r772 r773  
    4141      !! ** Method  :  
    4242      !!--------------------------------------------------------------------- 
    43       INTEGER :: ji,jj,jk,jn  
    44 #if defined key_pisces 
     43      INTEGER ::   jn  
     44# if defined key_pisces 
     45      INTEGER ::   ji, jj, jk  
    4546      REAL(wp) ::   alka0, oxyg0, calc0, bioma0 
    4647      REAL(wp) ::   silic1, po4, no3, caralk, bicarb, co3 
    47 #endif 
     48# endif 
    4849      !!--------------------------------------------------------------------- 
    4950 
     
    5253      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    5354 
    54 #if defined key_cfc 
    55       ! CFC initialisation 
    56       trn(:,:,:,:) = 0.e0 
     55      IF( lk_cfc ) THEN 
     56         DO jn = jp_cfc0,jp_cfc1 
     57            trn(:,:,:,jn) = 0.e0      ! CFC initialisation to zera 
     58         END DO 
     59      ENDIF 
    5760       
    58 #elif defined key_pisces 
     61# if defined key_pisces 
    5962      ! PISCES initialisation 
    6063      ! --------------------- 
     
    7578      trn(:,:,:,jppo4) = po4 
    7679      trn(:,:,:,jppoc) = bioma0 
    77 #if ! defined key_kriest 
     80#  if ! defined key_kriest 
    7881      trn(:,:,:,jpgoc) = bioma0 
    7982      trn(:,:,:,jpbfe) = bioma0 * 5.e-6 
    80 #else 
     83#  else 
    8184      trn(:,:,:,jpnum) = bioma0 / ( 6. *xkr_massp ) 
    82 #endif 
     85#  endif 
    8386      trn(:,:,:,jpsil) = silic1 
    8487      trn(:,:,:,jpbsi) = bioma0 * 0.15 
     
    119122      IF(lwp) WRITE(numout,*) ' ' 
    120123 
    121 #elif defined key_lobster && ( defined key_eel_r6 || defined key_eel_r2 ) 
     124# elif defined key_lobster && ( defined key_eel_r6 || defined key_eel_r2 ) 
    122125      ! LOBSTER initialisation for EEL 
    123126      ! ---------------------- 
     
    195198      trn(:,:,30,jpno3) = 20.01 * tmask(:,:,30) 
    196199 
    197 #elif defined key_lobster && defined key_gyre 
     200# elif defined key_lobster && defined key_gyre 
    198201      ! LOBSTER initialisation for GYRE 
    199202      ! ---------------------- 
     
    216219      END DO 
    217220 
    218 #else 
     221# else 
    219222      ! Default case  
    220223      ! ------------ 
     
    223226      END DO 
    224227 
    225 #endif 
    226  
    227 #if defined key_dtatrc 
     228# endif 
     229 
     230# if defined key_dtatrc 
    228231     ! Initialization of tracer from a file that may also be used for damping 
    229232      CALL dta_trc( nittrc000 ) 
     
    231234        IF( lutini(jn) )   trn(:,:,:,jk) = trdta(:,:,:,jn) * tmask(:,:,:)   ! initialisation from file if required 
    232235      END DO 
    233 #endif 
     236# endif 
    234237 
    235238      ! before field : 
     
    237240      trb(:,:,:,:) = trn(:,:,:,:) 
    238241 
    239 #if defined key_lobster 
     242# if defined key_lobster 
    240243      !  initialize the POC in sediments 
    241244      sedpocb(:,:) = 0.e0 
    242245      sedpocn(:,:) = 0.e0 
    243246      sedpoca(:,:) = 0.e0 
    244 #endif 
     247# endif 
    245248      ! 
    246249   END SUBROUTINE trc_dtr  
Note: See TracChangeset for help on using the changeset viewer.