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/dyn3d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d/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/dyn3d/integrd.F

    r1907 r2094  
    107107         write(lunout,*) " lon = ",rlonv(i)*180./pi, " deg",
    108108     &                   " lat = ",rlatu(j)*180./pi, " deg"
    109          stop
     109         call abort_gcm("integrd", "", 1)
    110110        ENDIF
    111111      ENDDO
Note: See TracChangeset for help on using the changeset viewer.