Ignore:
Timestamp:
Aug 10, 2009, 12:20:39 PM (15 years ago)
Author:
jghattas
Message:

La fonction ioget_year_len n'existe pas dans les tags officiels
d'IOIPSL, uniquement dans le trunk. LMDZ n'compilant plus, j'ai
commente l'appel a cette fonction et temporairement desactive l'option
read_climoz qui l'utilise.

JG

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

    r1225 r1226  
    1313
    1414      USE ioipsl, only: histbeg, histvert, histdef, histend, histsync,
    15      $     histwrite, ju2ymds, ymds2ju, ioget_year_len
     15     $     histwrite, ju2ymds, ymds2ju
     16!JG     $     histwrite, ju2ymds, ymds2ju, ioget_year_len
    1617      USE comgeomphy
    1718      USE write_field_phy
     
    17221723C        Ozone from a file
    17231724!        Update required ozone index:
    1724          ro3i = int((days_elapsed + jh_cur - jh_1jan)
    1725      $        / ioget_year_len(year_cur) * 360.) + 1
     1725!JG : ioget_year_len n'existe pas dans les versions officiels d'ioipsl
     1726!JG         ro3i = int((days_elapsed + jh_cur - jh_1jan)
     1727!JG     $        / ioget_year_len(year_cur) * 360.) + 1
     1728         CALL abort_gcm(modname,
     1729     $     'JG : read_climoz temporary desactivated',1)
     1730
    17261731         if (ro3i == 361) ro3i = 360
    17271732C        (This should never occur, except perhaps because of roundup
Note: See TracChangeset for help on using the changeset viewer.