Changeset 2094 for LMDZ5


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
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/bibio/handle_err_m.F90

    r1907 r2094  
    3939          end if
    4040       end if
    41        stop 1
     41       call abort_gcm("NetCDF95 handle_err", "", 1)
    4242    end if
    4343

  • 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

  • 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   

  • LMDZ5/trunk/libf/dyn3dpar/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
Note: See TracChangeset for help on using the changeset viewer.