Changeset 98 for codes/icosagcm/trunk/src/dissip_sw.f90
- Timestamp:
- 08/04/12 01:10:06 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/dissip_sw.f90
r44 r98 25 25 END SUBROUTINE allocate_dissip 26 26 27 SUBROUTINE init_dissip (dt)27 SUBROUTINE init_dissip 28 28 USE icosa 29 29 30 30 IMPLICIT NONE 31 REAL,INTENT(IN) :: dt32 31 33 32 TYPE(t_field),POINTER :: f_u(:)
Note: See TracChangeset
for help on using the changeset viewer.