Ignore:
Timestamp:
Jul 7, 2014, 4:48:37 PM (10 years ago)
Author:
idelkadi
Message:
  • Rajout des derictives OPENMP pour lire les fichiers namelists
  • Corrections dans la re-ecriture des sorties (traitement des valeurs indefinies)
  • Suppression des parametres non utilises des namelists
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/cosp/cosp_constants.F90

    r1907 r2080  
    3131!
    3232MODULE MOD_COSP_CONSTANTS
    33 !    use netcdf, only: nf90_fill_rea
     33    use netcdf, only: nf90_fill_real
    3434    IMPLICIT NONE
    3535   
    … …  
    4747    ! Missing value
    4848!!    real,parameter :: R_UNDEF = -1.0E30
    49      real,parameter :: R_UNDEF = 9.96921e+36
    50 !      real,parameter :: R_UNDEF = nf90_fill_rea
     49!     real,parameter :: R_UNDEF = 9.96921e+36
     50      real,parameter :: R_UNDEF = nf90_fill_real
     51
    5152    ! Number of possible output variables
    5253    integer,parameter :: N_OUT_LIST = 27
Note: See TracChangeset for help on using the changeset viewer.