Changeset 946


Ignore:
Timestamp:
07/10/19 12:09:33 (5 years ago)
Author:
jisesh
Message:

devel:improved condition to handle floating-point in nudging module

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dissip/nudging_mod.f90

    r913 r946  
    158158    INTEGER :: ind 
    159159 
    160     IF (MOD(INT(tt),nudging_time)==dt) THEN 
    161     
     160    IF (abs(MOD(tt,REAL(nudging_time))-dt) < 1.0D-2) THEN 
     161 
    162162      CALL allocate_field(f_T_guided, field_t, type_real, llm, name='nudging_T') 
    163163      CALL allocate_field(f_ulon_guided, field_t, type_real, llm, name='nudging_ulon') 
Note: See TracChangeset for help on using the changeset viewer.