Changeset 3070 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Nov 14, 2017, 2:39:30 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Simplifications
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/iostart.F90

    r2311 r3070  
    8989    LOGICAL,INTENT(OUT),OPTIONAL   :: found
    9090
    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)
    9692     
    9793  END SUBROUTINE Get_Field_r1
    … …  
    10399    LOGICAL,INTENT(OUT),OPTIONAL   :: found
    104100
    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)
    110102
    111103     
    … …  
    118110    LOGICAL,INTENT(OUT),OPTIONAL   :: found
    119111
    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)
    125113     
    126114  END SUBROUTINE Get_Field_r3
    … …  
    208196    REAL                         :: varout(1)
    209197   
    210     IF (PRESENT(found)) THEN
    211       CALL Get_var_rgen(var_name,varout,size(varout),found)
    212     ELSE
    213       CALL Get_var_rgen(var_name,varout,size(varout))
    214     ENDIF
     198    CALL Get_var_rgen(var_name,varout,size(varout),found)
    215199    var=varout(1)
    216200 
    … …  
    223207    LOGICAL,OPTIONAL,INTENT(OUT) :: found
    224208   
    225     IF (PRESENT(found)) THEN
    226       CALL Get_var_rgen(var_name,var,size(var),found)
    227     ELSE
    228       CALL Get_var_rgen(var_name,var,size(var))
    229     ENDIF
     209    CALL Get_var_rgen(var_name,var,size(var),found)
    230210 
    231211  END SUBROUTINE get_var_r1
    … …  
    237217    LOGICAL,OPTIONAL,INTENT(OUT) :: found
    238218   
    239     IF (PRESENT(found)) THEN
    240       CALL Get_var_rgen(var_name,var,size(var),found)
    241     ELSE
    242       CALL Get_var_rgen(var_name,var,size(var))
    243     ENDIF
     219    CALL Get_var_rgen(var_name,var,size(var),found)
    244220 
    245221  END SUBROUTINE get_var_r2
    … …  
    251227    LOGICAL,OPTIONAL,INTENT(OUT) :: found
    252228   
    253     IF (PRESENT(found)) THEN
    254       CALL Get_var_rgen(var_name,var,size(var),found)
    255     ELSE
    256       CALL Get_var_rgen(var_name,var,size(var))
    257     ENDIF
     229    CALL Get_var_rgen(var_name,var,size(var),found)
    258230 
    259231  END SUBROUTINE get_var_r3
Note: See TracChangeset for help on using the changeset viewer.