Changeset 1040 for codes


Ignore:
Timestamp:
08/11/20 14:11:48 (4 years ago)
Author:
dubos
Message:

devel : replace MERGE by IF to set default values of optional arguments

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/diagnostics/wind.F90

    r714 r1040  
    1919    REAL(rstd)             :: scale 
    2020    INTEGER :: ind 
    21     scale = MERGE(scale_, 1., PRESENT(scale_)) 
     21    scale=1. ; IF(PRESENT(scale_)) scale=scale_ 
    2222    DO ind=1,ndomain 
    2323       IF (.NOT. assigned_domain(ind)) CYCLE 
    … …  
    5757  INTEGER :: ij,l 
    5858  REAL(rstd) :: scale,fac, ue_le, cx,cy,cz, ux,uy,uz 
    59   scale = MERGE(scale_, 1., PRESENT(scale_)) 
     59  scale=1. ; IF(PRESENT(scale_)) scale=scale_ 
    6060#include "../kernels_hex/wind_centered.k90" 
    6161 END SUBROUTINE compute_wind_centered 
Note: See TracChangeset for help on using the changeset viewer.