Changeset 4928


Ignore:
Timestamp:
May 2, 2024, 6:06:46 PM (2 weeks ago)
Author:
musat
Message:

Initialisation of ratqs_inter_ to 0.002 in phys_state_var_mod
Back to the old phyetat0_get_mod (because isnan doesn't work with
gfortran lmgz-cq)
IonelaMusat?

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/phyetat0_get_mod.F90

    r4927 r4928  
    6464  DO i = 1, SIZE(name)
    6565    CALL get_field(TRIM(name(i)), field, lFound)
    66     IF(isnan(field(1,1))) THEN
    67       field(:,:) = default
    68     ENDIF
    6966    IF(lFound) EXIT
    7067    WRITE(lunout,*) "phyetat0: Missing field <",TRIM(name(i)),"> "

  • LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

    r4773 r4928  
    772772      ALLOCATE(ale_bl_trig(klon))
    773773      ALLOCATE(ratqs_inter_(klon,klev))
     774      ratqs_inter_(:,:)=0.002
    774775      IF (ok_gwd_rando) THEN
    775776        ALLOCATE(du_gwd_rando(klon, klev))
Note: See TracChangeset for help on using the changeset viewer.