Ignore:
Timestamp:
Jul 16, 2014, 6:55:47 PM (10 years ago)
Author:
lguez
Message:

In module getparam, moved procedures ini_getparam and fin_getparam out
of the generic interface. Let us keep the generic interface for
procedures which do the same processing on arguments which differ only
by type, kind or rank.

Location:
LMDZ5/trunk/libf/dyn3dmem
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/getparam.F90

    r1907 r2094  
    1111
    1212   INTERFACE getpar
    13      MODULE PROCEDURE ini_getparam,fin_getparam,getparamr,getparami,getparaml
     13     MODULE PROCEDURE getparamr,getparami,getparaml
    1414   END INTERFACE
     15   private getparamr,getparami,getparaml
    1516
    1617   INTEGER, PARAMETER :: out_eff=99

  • LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

    r1907 r2094  
    183183     .                dq(:,:,j))
    184184        enddo
    185       STOP
     185        call abort_gcm("integrd_loc", "", 1)
    186186      ENDIF
    187187   
Note: See TracChangeset for help on using the changeset viewer.