Changeset 788


Ignore:
Timestamp:
11/30/18 10:46:32 (5 years ago)
Author:
ymipsl
Message:

Minor fix when using -no_io option : Some compiler (NEC sx Aurora) can detect netcdf missing symbol as "function" instead of "subroutine" like it is defined outside the module.

YM


File:
1 edited

Legend:

Unmodified
Added
Removed
  • codes/icosagcm/trunk/src/output/netcdf_mod.F90

    r548 r788  
    199199END MODULE netcdf_mod 
    200200 
    201   SUBROUTINE NF90_CREATE_PAR 
     201  FUNCTION NF90_CREATE_PAR 
     202    INTEGER ::  NF90_CREATE_PAR 
     203    RETURN 0 
    202204  END 
    203205   
    204  SUBROUTINE NF90_DEF_VAR_CHUNKING  
    205  END 
    206   
    207  SUBROUTINE NF90_CREATE 
    208  END 
    209   
    210  SUBROUTINE  NF90_DEF_DIM 
    211  END 
    212   
    213  SUBROUTINE NF90_PUT_ATT 
    214  END 
    215   
    216  SUBROUTINE NF90_ENDDEF  
    217  END 
    218    
    219  SUBROUTINE NF90_CLOSE 
    220  END 
    221   
    222  SUBROUTINE NF90_SYNC 
    223  END 
    224   
    225  SUBROUTINE NF90_OPEN 
    226  END 
    227   
    228  SUBROUTINE NF90_INQ_VARID 
    229  END 
    230   
    231  SUBROUTINE NF90_GET_ATT 
    232  END 
    233  
    234 #endif 
    235  
     206 FUNCTION NF90_DEF_VAR_CHUNKING  
     207    INTEGER ::  NF90_DEF_VAR_CHUNKING 
     208    RETURN 0 
     209 END 
     210  
     211 FUNCTION NF90_CREATE 
     212    INTEGER ::  NF90_CREATE 
     213    RETURN 0 
     214 END 
     215  
     216 FUNCTION  NF90_DEF_DIM 
     217    INTEGER ::  NF90_DEF_DIM 
     218    RETURN 0 
     219 END 
     220  
     221 FUNCTION NF90_PUT_ATT 
     222    INTEGER ::  NF90_PUT_ATT 
     223    RETURN 0 
     224 END 
     225  
     226 FUNCTION NF90_ENDDEF 
     227    INTEGER ::  NF90_ENDDEF 
     228    RETURN 0  
     229 END 
     230   
     231 FUNCTION NF90_CLOSE 
     232    INTEGER ::  NF90_CLOSE 
     233    RETURN 0  
     234 END 
     235  
     236 FUNCTION NF90_SYNC 
     237    INTEGER ::  NF90_SYNC 
     238    RETURN 0  
     239 END 
     240  
     241 FUNCTION NF90_OPEN 
     242    INTEGER ::  NF90_OPEN 
     243    RETURN 0  
     244 END 
     245  
     246 FUNCTION NF90_INQ_VARID 
     247    INTEGER ::  NF90_INQ_VARID 
     248    RETURN 0  
     249 END 
     250  
     251 FUNCTION NF90_GET_ATT 
     252    INTEGER ::  NF90_GET_ATT 
     253    RETURN 0  
     254 END 
     255 
     256#endif 
     257 
Note: See TracChangeset for help on using the changeset viewer.