Changeset 1402 for LMDZ4/branches/LMDZ4_AR5

Timestamp:

Jun 22, 2010, 11:34:56 AM (15 years ago)

Author:

jghattas

Message:

Bug fix : Added a test if optional argument is present before use.

---

Correction de bug : ajout du test de presence d'un argument optionel avant son utilisation.

Location:

LMDZ4/branches/LMDZ4_AR5/libf

Files:

• dyn3d/limit_netcdf.F90 (modified) (1 diff)
• dyn3dpar/limit_netcdf.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4_AR5/libf/dyn3d/limit_netcdf.F90

@@ -347 +347 @@
     CASE('ALB'); varname='ALBEDO'; title='Albedo'
   END SELECT
-  extrp=(flag.AND.mode=='SST')
+
+  extrp=.FALSE.
+  IF ( PRESENT(flag) ) THEN
+     IF ( flag .AND. mode=='SST' ) extrp=.TRUE.
+  END IF
 
 !--- GETTING SOME DIMENSIONAL VARIABLES FROM FILE ------------------------------

LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/limit_netcdf.F90

@@ -347 +347 @@
     CASE('ALB'); varname='ALBEDO'; title='Albedo'
   END SELECT
-  extrp=(flag.AND.mode=='SST')
+
+  extrp=.FALSE.
+  IF ( PRESENT(flag) ) THEN
+     IF ( flag .AND. mode=='SST' ) extrp=.TRUE.
+  END IF
 
 !--- GETTING SOME DIMENSIONAL VARIABLES FROM FILE ------------------------------