Changeset 1404


Ignore:
Timestamp:
Jul 1, 2010, 11:46:32 AM (14 years ago)
Author:
Laurent Fairhead
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.

JG

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/dyn3d/limit_netcdf.F90

    r1403 r1404  
    347347    CASE('ALB'); varname='ALBEDO'; title='Albedo'
    348348  END SELECT
    349   extrp=(flag.AND.mode=='SST')
     349  extrp=.FALSE.
     350  IF ( PRESENT(flag) ) THEN
     351    IF ( flag .AND. mode=='SST' ) extrp=.TRUE.
     352  END IF
    350353
    351354!--- GETTING SOME DIMENSIONAL VARIABLES FROM FILE ------------------------------
  • LMDZ4/trunk/libf/dyn3dpar/limit_netcdf.F90

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