Changeset 3388

Timestamp:

Sep 10, 2018, 4:19:02 PM (6 years ago)

Author:

Ehouarn Millour

Message:

Small bug fix: variable "error" should only be tested if it has been filled.
EM

File:

• LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/carbon_cycle_mod.F90

@@ -819 +819 @@
  ENDIF ! planet_type
 
- IF ((nbcf_in.GT.0) .AND. (.NOT. ALLOCATED(zcfields_in))) ALLOCATE(zcfields_in(klon,nbcf_in),stat=error)
-        IF (error /= 0)  CALL abort_gcm(modname,'Pb in allocation zcfields_in',1)
- IF ((nbcf_out.GT.0) .AND. (.NOT. ALLOCATED(zcfields_out))) ALLOCATE(zcfields_out(klon,nbcf_out),stat=error)
-        IF (error /= 0)  CALL abort_gcm(modname,'Pb in allocation zcfields_out',1)
+ IF ((nbcf_in.GT.0) .AND. (.NOT. ALLOCATED(zcfields_in))) THEN
+    ALLOCATE(zcfields_in(klon,nbcf_in),stat=error)
+    IF (error /= 0)  CALL abort_gcm(modname,'Pb in allocation zcfields_in',1)
+ ENDIF
+ IF ((nbcf_out.GT.0) .AND. (.NOT. ALLOCATED(zcfields_out))) THEN
+    ALLOCATE(zcfields_out(klon,nbcf_out),stat=error)
+    IF (error /= 0)  CALL abort_gcm(modname,'Pb in allocation zcfields_out',1)
+ ENDIF
 
 END SUBROUTINE infocfields_init