Changeset 166 in lmdz_wrf


Ignore:
Timestamp:
Aug 8, 2014, 6:10:15 PM (10 years ago)
Author:
lfita
Message:

Adding PRINTs in order to find where is giving 'abort_gcm'

Location:
branches/LMDZ_WRFmeas_develop/WRFV3/lmdz
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/thermcell_dq.F90

    r136 r166  
    5454               print*,'entr dt > m ',entr(ig,k)*ptimestep,masse(ig,k)
    5555               abort_message = ''
     56               PRINT *,'  Lluis aborting at :', ig, k
    5657               CALL abort_gcm (modname,abort_message,1)
    5758            endif
    … …  
    188189               print*,'entr dt > m ',entr(ig,k)*ptimestep,masse(ig,k)
    189190               abort_message = ''
     191               PRINT *,'  Lluis aborting at :', ig, k
    190192               CALL abort_gcm (modname,abort_message,1)
    191193            endif

  • branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/thermcell_main.F90

    r165 r166  
    721721        if (pcon(ig).le.pplay(ig,nlay)) then
    722722           zcon2(ig)=zlay(ig,nlay)-(pcon(ig)-pplay(ig,nlay))/(RG*rho(ig,nlay))/100.
     723           PRINT *,'  Lluis aborting at :', ig
    723724           ierr=1
    724725        endif
Note: See TracChangeset for help on using the changeset viewer.