Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (3 months ago)
Author:
abarral
Message:

Put dimensions.h and paramet.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/sdl_module.F90

    r1990 r5159  
    4343!CHARACTER(LEN=*), PARAMETER :: CLNECMSG = '*** Calling NEC traceback ***'
    4444!#endif
    45 !
     45
    4646!IF (PRESENT(KTID)) THEN
    4747!  ITID = KTID
    … …  
    4949!  ITID = OML_MY_THREAD()
    5050!ENDIF
    51 !
     51
    5252!IF (LHOOK) THEN
    5353!  IPRINT_OPTION = 2
    … …  
    5555!  CALL C_DRHOOK_PRINT(0, ITID, IPRINT_OPTION, ILEVEL) ! from drhook.c
    5656!ENDIF
    57 !
     57
    5858!#ifdef VPP
    5959!  CALL ERRTRA
    … …  
    117117!MPL 4.12.08
    118118!#ifdef VPP
    119 !
     119
    120120!CALL VPP_ABORT()
    121 !
     121
    122122!#else
    123 !
     123
    124124!IRETURN_CODE=1
    125125!CALL MPI_ABORT(KCOMM,IRETURN_CODE,IERROR)
Note: See TracChangeset for help on using the changeset viewer.