- Timestamp:
- Jul 24, 2024, 4:23:34 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phydev/phys_state_var_mod.F90
r5116 r5117 19 19 ! use dimphy, ONLY: klon 20 20 21 ! if (. not.allocated(rlat)) THEN21 ! if (.NOT.allocated(rlat)) THEN 22 22 ! ALLOCATE(rlat(klon),rlon(klon)) 23 23 ! else 24 24 ! WRITE(*,*) "phys_state_var_init: warning, rlat already allocated" 25 ! endif25 ! ENDIF 26 26 27 27 END SUBROUTINE phys_state_var_init
Note: See TracChangeset
for help on using the changeset viewer.