Changeset 3356 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/iostart.F90
- Timestamp:
- Jun 29, 2018, 12:31:11 PM (6 years ago)
- Location:
- LMDZ6/branches/DYNAMICO-conv
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/iostart.F90
r3312 r3356 89 89 LOGICAL,INTENT(OUT),OPTIONAL :: found 90 90 91 IF (PRESENT(found)) THEN 92 CALL Get_field_rgen(field_name,field,1,found) 93 ELSE 94 CALL Get_field_rgen(field_name,field,1) 95 ENDIF 91 CALL Get_field_rgen(field_name,field,1,found) 96 92 97 93 END SUBROUTINE Get_Field_r1 … … 103 99 LOGICAL,INTENT(OUT),OPTIONAL :: found 104 100 105 IF (PRESENT(found)) THEN 106 CALL Get_field_rgen(field_name,field,size(field,2),found) 107 ELSE 108 CALL Get_field_rgen(field_name,field,size(field,2)) 109 ENDIF 101 CALL Get_field_rgen(field_name,field,size(field,2),found) 110 102 111 103 … … 118 110 LOGICAL,INTENT(OUT),OPTIONAL :: found 119 111 120 IF (PRESENT(found)) THEN 121 CALL Get_field_rgen(field_name,field,size(field,2)*size(field,3),found) 122 ELSE 123 CALL Get_field_rgen(field_name,field,size(field,2)*size(field,3)) 124 ENDIF 112 CALL Get_field_rgen(field_name,field,size(field,2)*size(field,3),found) 125 113 126 114 END SUBROUTINE Get_Field_r3 … … 219 207 REAL :: varout(1) 220 208 221 IF (PRESENT(found)) THEN 222 CALL Get_var_rgen(var_name,varout,size(varout),found) 223 ELSE 224 CALL Get_var_rgen(var_name,varout,size(varout)) 225 ENDIF 209 CALL Get_var_rgen(var_name,varout,size(varout),found) 226 210 var=varout(1) 227 211 … … 234 218 LOGICAL,OPTIONAL,INTENT(OUT) :: found 235 219 236 IF (PRESENT(found)) THEN 237 CALL Get_var_rgen(var_name,var,size(var),found) 238 ELSE 239 CALL Get_var_rgen(var_name,var,size(var)) 240 ENDIF 220 CALL Get_var_rgen(var_name,var,size(var),found) 241 221 242 222 END SUBROUTINE get_var_r1 … … 248 228 LOGICAL,OPTIONAL,INTENT(OUT) :: found 249 229 250 IF (PRESENT(found)) THEN 251 CALL Get_var_rgen(var_name,var,size(var),found) 252 ELSE 253 CALL Get_var_rgen(var_name,var,size(var)) 254 ENDIF 230 CALL Get_var_rgen(var_name,var,size(var),found) 255 231 256 232 END SUBROUTINE get_var_r2 … … 262 238 LOGICAL,OPTIONAL,INTENT(OUT) :: found 263 239 264 IF (PRESENT(found)) THEN 265 CALL Get_var_rgen(var_name,var,size(var),found) 266 ELSE 267 CALL Get_var_rgen(var_name,var,size(var)) 268 ENDIF 240 CALL Get_var_rgen(var_name,var,size(var),found) 269 241 270 242 END SUBROUTINE get_var_r3
Note: See TracChangeset
for help on using the changeset viewer.