Changeset 946 for codes/icosagcm/devel/src
- Timestamp:
- 07/10/19 12:09:33 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/dissip/nudging_mod.f90
r913 r946 158 158 INTEGER :: ind 159 159 160 IF ( MOD(INT(tt),nudging_time)==dt) THEN161 160 IF (abs(MOD(tt,REAL(nudging_time))-dt) < 1.0D-2) THEN 161 162 162 CALL allocate_field(f_T_guided, field_t, type_real, llm, name='nudging_T') 163 163 CALL allocate_field(f_ulon_guided, field_t, type_real, llm, name='nudging_ulon')
Note: See TracChangeset
for help on using the changeset viewer.