Ignore:
Timestamp:
Nov 1, 2024, 1:05:47 PM (3 months ago)
Author:
abarral
Message:

unify abort_gcm
rename wxios -> wxios_mod

Location:
LMDZ6/trunk/libf/phylmd/dyn1d
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r5302 r5310  
    984984      END
    985985
    986 
    987 
    988       SUBROUTINE abort_gcm(modname, message, ierr)
    989 
    990       USE IOIPSL
    991 !
    992 ! Stops the simulation cleanly, closing files and printing various
    993 ! comments
    994 !
    995 !  Input: modname = name of calling program
    996 !         message = stuff to print
    997 !         ierr    = severity of situation ( = 0 normal )
    998 
    999       character(len=*) modname
    1000       integer ierr
    1001       character(len=*) message
    1002 
    1003       write(*,*) 'in abort_gcm'
    1004       call histclo
    1005 !     call histclo(2)
    1006 !     call histclo(3)
    1007 !     call histclo(4)
    1008 !     call histclo(5)
    1009       write(*,*) 'out of histclo'
    1010       write(*,*) 'Stopping in ', modname
    1011       write(*,*) 'Reason = ',message
    1012       call getin_dump
    1013 !
    1014       if (ierr .eq. 0) then
    1015         write(*,*) 'Everything is cool'
    1016       else
    1017         write(*,*) 'Houston, we have a problem ', ierr
    1018       endif
    1019       STOP
    1020       END
    1021986      REAL FUNCTION fq_sat(kelvin, millibar)
    1022987!

  • LMDZ6/trunk/libf/phylmd/dyn1d/replay1d.f90

    r5271 r5310  
    9494
    9595!=======================================================================
    96       SUBROUTINE abort_gcm(modname, message, ierr)
    97       USE IOIPSL
    98 ! Stops the simulation cleanly, closing files and printing various
    99 ! comments
    100 !=======================================================================
    101 !
    102 !  Input: modname = name of calling program
    103 !         message = stuff to print
    104 !         ierr    = severity of situation ( = 0 normal )
    105  
    106       character(len=*) modname
    107       integer ierr
    108       character(len=*) message
    109  
    110       write(*,*) 'in abort_gcm'
    111       call histclo
    112       write(*,*) 'out of histclo'
    113       write(*,*) 'Stopping in ', modname
    114       write(*,*) 'Reason = ',message
    115       call getin_dump
    116 !
    117       if (ierr .eq. 0) then
    118         write(*,*) 'Everything is cool'
    119       else
    120         write(*,*) 'Houston, we have a problem ', ierr
    121       endif
    122       STOP
    123       END
    124 
    125 !=======================================================================
    12696      SUBROUTINE gr_dyn_fi(nfield,im,jm,ngrid,pdyn,pfi)
    12797      IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.