Changeset 1200 for trunk/AGRIF/AGRIF_FILES/modinit.F
- Timestamp:
- 2008-09-24T15:05:20+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/AGRIF/AGRIF_FILES/modinit.F
r396 r1200 129 129 C Pointer argument: 130 130 Type(Agrif_Grid), Pointer :: Agrif_Gr 131 131 132 C 132 133 do i = 1 , Agrif_NbVariables … … 136 137 if (associated(Agrif_Gr%tabvars(i)%var%array1)) then 137 138 Agrif_Gr % tabvars(i) % var % nbdim = 1 139 Agrif_Gr % tabvars(i) % var % lb(1:1) = 140 & lbound(Agrif_Gr%tabvars(i)%var%array1) 141 Agrif_Gr % tabvars(i) % var % ub(1:1) = 142 & ubound(Agrif_Gr%tabvars(i)%var%array1) 138 143 endif 139 144 if (associated(Agrif_Gr%tabvars(i)%var%array2)) then 140 145 Agrif_Gr % tabvars(i) % var % nbdim = 2 146 Agrif_Gr % tabvars(i) % var % lb(1:2) = 147 & lbound(Agrif_Gr%tabvars(i)%var%array2) 148 Agrif_Gr % tabvars(i) % var % ub(1:2) = 149 & ubound(Agrif_Gr%tabvars(i)%var%array2) 141 150 endif 142 151 if (associated(Agrif_Gr%tabvars(i)%var%array3)) then 143 152 Agrif_Gr % tabvars(i) % var % nbdim = 3 153 Agrif_Gr % tabvars(i) % var % lb(1:3) = 154 & lbound(Agrif_Gr%tabvars(i)%var%array3) 155 Agrif_Gr % tabvars(i) % var % ub(1:3) = 156 & ubound(Agrif_Gr%tabvars(i)%var%array3) 144 157 endif 145 158 if (associated(Agrif_Gr%tabvars(i)%var%array4)) then 146 159 Agrif_Gr % tabvars(i) % var % nbdim = 4 160 Agrif_Gr % tabvars(i) % var % lb(1:4) = 161 & lbound(Agrif_Gr%tabvars(i)%var%array4) 162 Agrif_Gr % tabvars(i) % var % ub(1:4) = 163 & ubound(Agrif_Gr%tabvars(i)%var%array4) 147 164 endif 148 165 if (associated(Agrif_Gr%tabvars(i)%var%array5)) then 149 166 Agrif_Gr % tabvars(i) % var % nbdim = 5 167 Agrif_Gr % tabvars(i) % var % lb(1:5) = 168 & lbound(Agrif_Gr%tabvars(i)%var%array5) 169 Agrif_Gr % tabvars(i) % var % ub(1:5) = 170 & ubound(Agrif_Gr%tabvars(i)%var%array5) 150 171 endif 151 172 if (associated(Agrif_Gr%tabvars(i)%var%array6)) then 152 173 Agrif_Gr % tabvars(i) % var % nbdim = 6 174 Agrif_Gr % tabvars(i) % var % lb(1:6) = 175 & lbound(Agrif_Gr%tabvars(i)%var%array6) 176 Agrif_Gr % tabvars(i) % var % ub(1:6) = 177 & ubound(Agrif_Gr%tabvars(i)%var%array6) 153 178 endif 154 179 C
Note: See TracChangeset
for help on using the changeset viewer.