Changeset 7429

Timestamp:

2022-01-13T16:42:12+01:00 (2 years ago)

Author:

josefine.ghattas

Message:

Correction to run with the new driver using compressed forcing data (tested with crujra half deg). Already done in the trunk rev [7281].

Done by Xiaoni Wang-Faivre

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_driver/forcing_tools.f90 (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_driver/forcing_tools.f90

@@ -2663 +2663 @@
           IF ( .NOT. ALLOCATED(contfrac_glo)) ALLOCATE(contfrac_glo(nbland_glo))
           IF ( .NOT. ALLOCATED(testvar)) ALLOCATE(testvar(nbland_glo))
+          nbpoint_glo = nbland_glo
           CALL forcing_contfrac1d(force_id(1), testvar_id, contfrac_id, testvar)
-          nbpoint_glo = nbland_glo
        ELSE
           WRITE(*,*) "forcing_tools cannot provide data over ocean points as the"