Changeset 3406 for trunk/LMDZ.PLUTO/libf


Ignore:
Timestamp:
Aug 20, 2024, 12:12:39 PM (4 months ago)
Author:
afalco
Message:

Pluto PCM:
Better messages for debug.
AF

Location:
trunk/LMDZ.PLUTO/libf/phypluto
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/phypluto/callcorrk_pluto_mod.F90

    r3361 r3406  
    620620            print*,'Minimum temperature is outside the radiative'
    621621            print*,'transfer kmatrix bounds, exiting.'
    622             print*,tlevrad(k),k,tgasmin
    623           !  call abort
     622            print*,'t(',k,')=',tlevrad(k),' < ',tgasmin
     623            call abort
    624624          elseif(tlevrad(k).gt.tgasmax)then
    625625            print*,'Maximum temperature is outside the radiative'
    626626            print*,'transfer kmatrix bounds, exiting.'
    627           !  call abort
     627            print*,'t(',k,')=',tlevrad(k),' > ',tgasmax
     628            ! call abort
    628629          endif
    629630         enddo

  • trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/rcm1d.F

    r3329 r3406  
    907907         ENDDO
    908908         GOTO 401
    909 301      STOP'fichier profhaze inexistant'
     909301      STOP'Problem with profhaze file'
    910910401      CONTINUE
    911911         CLOSE(15)
Note: See TracChangeset for help on using the changeset viewer.