Changeset 572 for BOL/trunk


Ignore:
Timestamp:
Dec 21, 2004, 5:10:38 PM (20 years ago)
Author:
lmdzadmin
Message:

CMOR a defini sa variable units sur 64 caracteres seulement SD
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • BOL/trunk/IPCC/ts2IPCC.F90

    r561 r572  
    286286                    table=trim(ipcc_table(index_table)),      &
    287287                    table_entry='latitude',                   &
    288                     units=units,                              & 
     288                    units=trim(units),                        & 
    289289                    length=lendim(idim),                      &
    290290                    coord_vals=lat,                           &
    … …  
    312312                    table=trim(ipcc_table(index_table)),      &
    313313                    table_entry='longitude',                  &
    314                     units=units,                              & 
     314                    units=trim(units),                        & 
    315315                    length=lendim(idim),                            &
    316316                    coord_vals=lon,                           &
    … …  
    333333                    table=trim(ipcc_table(index_table)),      &
    334334                    table_entry='pressure',                   &
    335                     units=units,                              & 
     335                    units=trim(units),                        & 
    336336                    length=lendim(idim),                      &
    337337                    coord_vals=vert)
    … …  
    354354           table=trim(ipcc_table(index_table)),            &
    355355           table_entry='time',                             &
    356            units=units,                                    &
     356           units=trim(units),                              &
    357357           length=lendim(idim),                            &
    358358           interval='30 minutes')
    … …  
    376376       table=trim(ipcc_table(index_table)),          &
    377377       table_entry=trim(ipcc_name(index_table)),     &
    378        units=units,                                  &
     378       units=trim(units),                            &
    379379       axis_ids= axis_ids,                           &
    380380       missing_value=real(missing_value),            &
    381381       positive = trim(ipsl_pos(index_table)),       &
    382        original_name=varname)
     382       original_name=trim(varname))
    383383!
    384384! Lecture de la variable
Note: See TracChangeset for help on using the changeset viewer.