Changeset 1402 for LMDZ4/branches


Ignore:
Timestamp:
Jun 22, 2010, 11:34:56 AM (14 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:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4_AR5/libf/dyn3d/limit_netcdf.F90

    r1328 r1402  
    347347    CASE('ALB'); varname='ALBEDO'; title='Albedo'
    348348  END SELECT
    349   extrp=(flag.AND.mode=='SST')
     349
     350  extrp=.FALSE.
     351  IF ( PRESENT(flag) ) THEN
     352     IF ( flag .AND. mode=='SST' ) extrp=.TRUE.
     353  END IF
    350354
    351355!--- GETTING SOME DIMENSIONAL VARIABLES FROM FILE ------------------------------
  • LMDZ4/branches/LMDZ4_AR5/libf/dyn3dpar/limit_netcdf.F90

    r1328 r1402  
    347347    CASE('ALB'); varname='ALBEDO'; title='Albedo'
    348348  END SELECT
    349   extrp=(flag.AND.mode=='SST')
     349
     350  extrp=.FALSE.
     351  IF ( PRESENT(flag) ) THEN
     352     IF ( flag .AND. mode=='SST' ) extrp=.TRUE.
     353  END IF
    350354
    351355!--- GETTING SOME DIMENSIONAL VARIABLES FROM FILE ------------------------------
Note: See TracChangeset for help on using the changeset viewer.