Changeset 1283


Ignore:
Timestamp:
2009-02-03T14:15:21+01:00 (12 years ago)
Author:
cetlod
Message:

Initialization of biological trends variable name, see ticket:312

Location:
trunk/NEMO/TOP_SRC
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/LOBSTER/trclsm_lobster.F90

    r1255 r1283  
    5454      TYPE(DIAG) , DIMENSION(jp_lobster_3d) :: lobdia3d 
    5555#endif 
    56 #if defined key_trc_diabio 
     56#if defined key_trc_diabio || defined key_trdmld_trc 
    5757      INTEGER :: js, jd 
    5858      ! definition of additional diagnostic as a structure 
     
    8181      NAMELIST/namlobdia/nwritedia, lobdia3d, lobdia2d     ! additional diagnostics 
    8282#endif 
    83 #if defined key_trc_diabio 
     83#if defined key_trc_diabio || defined key_trdmld_trc 
    8484      NAMELIST/namlobdbi/nwritebio, lobdiabio 
    8585#endif 
     
    341341#endif 
    342342 
    343 #if defined key_trc_diabio 
    344  
     343#if defined key_trc_diabio || defined key_trdmld_trc 
    345344      ! namlobdbi : bio diagnostics 
    346345      nwritebio = 10                     ! default values 
  • trunk/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r1264 r1283  
    13381338      nmoymltrdbio   = 0 
    13391339      tmltrd_sum_bio     (:,:,:) = 0.e0     ;   tmltrd_csum_ln_bio (:,:,:) = 0.e0 
     1340      DO jl = 1, jp_lobster_trd 
     1341          ctrd_bio(jl,1) = ctrbil(jl)   ! long name 
     1342          ctrd_bio(jl,2) = ctrbio(jl)   ! short name 
     1343       ENDDO 
    13401344#endif 
    13411345 
     
    14581462 
    14591463#if defined key_lobster 
    1460  
    1461           ctrd_bio(1,:) = "NO3PHY" 
    1462           ctrd_bio(2,:) = "NH4PHY" 
    1463           ctrd_bio(3,:) = "PHYNH4" 
    1464           ctrd_bio(4,:) = "PHYDOM" 
    1465           ctrd_bio(5,:) = "PHYZOO" 
    1466           ctrd_bio(6,:) = "PHYDET" 
    1467           ctrd_bio(7,:) = "DETZOO" 
    1468           ctrd_bio(8,:) = "DETSED" 
    1469           ctrd_bio(9,:) = "ZOODET" 
    1470           ctrd_bio(10,:) = "ZOOBOD" 
    1471           ctrd_bio(11,:) = "ZOONH4" 
    1472           ctrd_bio(12,:) = "ZOODOM" 
    1473           ctrd_bio(13,:) = "NH4NO3" 
    1474           ctrd_bio(14,:) = "DOMNH4" 
    1475           ctrd_bio(15,:) = "DETNH4" 
    1476           ctrd_bio(16,:) = "DETDOM" 
    1477           ctrd_bio(17,:) = "SEDNO3" 
    1478  
    1479  
    14801464          !-- Create a NetCDF file and enter the define mode 
    14811465          CALL dia_nam( clhstnam, ntrd_trc, 'trdbio' ) 
    14821466          CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,                                            & 
    14831467             &             1, jpi, 1, jpj, 0, zjulian, rdt, nh_tb, nidtrdbio, domain_id=nidom ) 
    1484  
    14851468#endif 
    14861469 
     
    15281511 
    15291512#if defined key_lobster 
    1530       DO jl = 1, jpdiabio 
     1513      DO jl = 1, jp_lobster_trd 
    15311514         CALL histdef(nidtrdbio, TRIM("ML_"//ctrd_bio(jl,2)), TRIM(clmxl//" ML_"//ctrd_bio(jl,1))   ,            & 
    15321515             &    cltrcu, jpi, jpj, nh_tb, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) ! IOIPSL: time mean 
  • trunk/NEMO/TOP_SRC/TRP/trdmld_trc_rst.F90

    r1258 r1283  
    5151           WRITE(clkt,'(i8.8)') nitrst 
    5252         ENDIF 
    53          clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_mld_trc" 
     53         clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_trdrst_trc_out) 
    5454         IF(lwp) WRITE(numout,*) '             open ocean restart_mld_trc NetCDF  '//clname 
    5555         CALL iom_open( clname, nummldw_trc, ldwrt = .TRUE., kiolib = jprstlib ) 
     
    140140      ENDIF 
    141141       
    142       CALL iom_open( 'restart_mld_trc', inum, kiolib = jprstlib )  
     142      CALL iom_open( cn_trdrst_trc_in, inum, kiolib = jprstlib )  
    143143       
    144144      IF( ln_trdmld_trc_instant ) THEN  
  • trunk/NEMO/TOP_SRC/trc.F90

    r1254 r1283  
    5757   INTEGER , PUBLIC  ::  nutrst     !: logical unit for restart FILE for passive tracers 
    5858   INTEGER , PUBLIC  ::  nrsttr     !: control of the time step ( 0 or 1 ) for pass. tr. 
    59    CHARACTER(len=32) ::  cn_trcrst_in  !: suffix of pass. tracer restart name (input) 
    60    CHARACTER(len=32) ::  cn_trcrst_out !: suffix of pass. tracer restart name (output) 
     59   CHARACTER(len=50) ::  cn_trcrst_in  !: suffix of pass. tracer restart name (input) 
     60   CHARACTER(len=50) ::  cn_trcrst_out !: suffix of pass. tracer restart name (output) 
    6161    
    6262   !! information for outputs 
     
    7474   CHARACTER(len=80), PUBLIC, DIMENSION (jpdia3d) ::   ctrc3l   !: 3d output field long name 
    7575 
    76     
    7776   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,    jpdia2d) ::   trc2d   !:  additional 2d outputs   
    7877   REAL(wp), PUBLIC, DIMENSION (jpi,jpj,jpk,jpdia3d) ::   trc3d   !:  additional 3d outputs   
    7978    
    80     
    81    !! netcdf files and index common 
    82    !! -------------------------------------------------- 
    8379   INTEGER , PUBLIC ::   nwritedia     !: frequency of additional arrays outputs(namelist) 
    8480# endif 
    8581 
    86 # if defined key_trc_diabio 
    87  
    88    !! Biological trends 
    89    !! ----------------- 
     82#if defined key_trc_diabio || defined key_trdmld_trc 
    9083   CHARACTER(len=8),  DIMENSION(jpdiabio) ::   ctrbio   !: biological trends name      (NAMELIST) 
    9184   CHARACTER(len=20), DIMENSION(jpdiabio) ::   ctrbiu   !: biological trends unit      (NAMELIST) 
    9285   CHARACTER(len=80), DIMENSION(jpdiabio) ::   ctrbil   !: biological trends long name (NAMELIST) 
     86   INTEGER ::   nwritebio   !: time step frequency for biological outputs (NAMELIST) 
     87#endif 
     88# if defined key_trc_diabio 
     89   !! Biological trends 
     90   !! ----------------- 
    9391   REAL(wp), DIMENSION(jpi,jpj,jpk,jpdiabio) :: trbio   !: biological trends 
    94  
    95    !! Netcdf output parameters 
    96    !! ------------------------ 
    97    INTEGER ::   nwritebio   !: time step frequency for biological outputs (NAMELIST) 
    98  
    9992# endif 
    10093 
Note: See TracChangeset for help on using the changeset viewer.