Changeset 11668 for vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif/AGRIF_FILES
- Timestamp:
- 2019-10-09T14:01:43+02:00 (5 years ago)
- Location:
- vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif/AGRIF_FILES
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif/AGRIF_FILES/modsauv.F90
r5656 r11668 79 79 if (allocated(var_c%carray1)) deallocate(var_c%carray1) 80 80 if (allocated(var_C%carray2)) deallocate(var_c%carray2) 81 if (allocated(var_C%carrayu)) deallocate(var_c%carrayu) 81 82 ! 82 83 !--------------------------------------------------------------------------------------------------- -
vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif/AGRIF_FILES/modtypes.F90
r5656 r11668 154 154 !> @{ 155 155 character(2400) :: carray0 156 character(:) , allocatable :: carrayu 156 157 character(200), dimension(:) , allocatable :: carray1 157 158 character(200), dimension(:,:), allocatable :: carray2 -
vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif/AGRIF_FILES/modutil.F90
r10586 r11668 919 919 if ( allocated(var_c % carray1) ) deallocate(var_c % carray1) 920 920 if ( allocated(var_c % carray2) ) deallocate(var_c % carray2) 921 if ( allocated(var_c % carrayu) ) deallocate(var_c % carrayu) 921 922 ! 922 923 enddo
Note: See TracChangeset
for help on using the changeset viewer.