Changeset 1226 for LMDZ4/branches

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:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

@@ -13 +13 @@
 
       USE ioipsl, only: histbeg, histvert, histdef, histend, histsync,
-     $     histwrite, ju2ymds, ymds2ju, ioget_year_len
+     $     histwrite, ju2ymds, ymds2ju
+!JG     $     histwrite, ju2ymds, ymds2ju, ioget_year_len
       USE comgeomphy
       USE write_field_phy
@@ -1722 +1723 @@
 C        Ozone from a file
 !        Update required ozone index:
-         ro3i = int((days_elapsed + jh_cur - jh_1jan)
-     $        / ioget_year_len(year_cur) * 360.) + 1
+!JG : ioget_year_len n'existe pas dans les versions officiels d'ioipsl
+!JG         ro3i = int((days_elapsed + jh_cur - jh_1jan)
+!JG     $        / ioget_year_len(year_cur) * 360.) + 1
+         CALL abort_gcm(modname,
+     $     'JG : read_climoz temporary desactivated',1)
+
          if (ro3i == 361) ro3i = 360
 C        (This should never occur, except perhaps because of roundup