- Timestamp:
- 10/22/14 11:53:10 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/sponge.f90
r282 r291 38 38 CALL getin("mode_sponge",mode_sponge) 39 39 PRINT*,'mode_sponge = ',mode_sponge 40 41 IF (iflag_sponge == 0) THEN 42 PRINT*,'init_sponge: no sponge' 43 RETURN 44 ENDIF 40 45 41 46 !$OMP MASTER
Note: See TracChangeset
for help on using the changeset viewer.