Changeset 3871

Timestamp:

Jan 8, 2016, 10:57:11 AM (9 years ago)

Author:

ymipsl

Message:

Avoid circular dependency with module

YM

Location:

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd

Files:

• limit_read_mod.F90 (modified) (2 diffs)
• physiq.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/limit_read_mod.F90

@@ -36 +36 @@
   USE surface_data
   USE XIOS
-  USE etat0_limit_unstruct_mod, ONLY: create_etat0_limit
   IMPLICIT NONE
     INTEGER, INTENT(IN) :: first_day
@@ -43 +42 @@
     IF ( type_ocean /= 'couple') THEN
       IF (grid_type==unstructured) THEN
-        IF (.NOT. create_etat0_limit) CALL xios_set_file_attr("limit_read",enabled=.TRUE.,record_offset=first_day)
+        CALL xios_set_file_attr("limit_read",enabled=.TRUE.,record_offset=first_day)
       ENDIF  
     ENDIF

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/physiq.F90

@@ -910 +910 @@
   if (first) then 
      CALL init_etat0_limit_unstruct
-     CALL init_limit_read(days_elapsed)
+     IF (.NOT. create_etat0_limit) CALL init_limit_read(days_elapsed)
      
      !CR:nvelles variables convection/poches froides