Ignore:
Timestamp:
Dec 14, 2015, 11:43:09 AM (9 years ago)
Author:
Laurent Fairhead
Message:

Merged trunk changes r2298:2396 into testing branch

Location:
LMDZ5/branches/testing
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/phylmd/cdrag.F90

    r2298 r2408  
    99  USE dimphy
    1010  USE indice_sol_mod
     11  USE print_control_mod, ONLY: lunout
    1112  IMPLICIT NONE
    1213! ================================================================= c
    … …  
    9899!  INCLUDE "indicesol.h"
    99100  INCLUDE "clesphys.h"
    100   INCLUDE "iniprint.h"
    101101!
    102102! Quelques constantes et options:
    … …  
    143143      WRITE(lunout,*)" The negative q1 is set to zero "
    144144!      abort_message="voir ci-dessus"
    145 !      CALL abort_gcm(modname,abort_message,1)
     145!      CALL abort_physic(modname,abort_message,1)
    146146  ENDIF
    147147  IF (ng_qsurf.GT.0) THEN
    … …  
    150150      WRITE(lunout,*)" The negative qsurf is set to zero "
    151151!      abort_message="voir ci-dessus"
    152 !      CALL abort_gcm(modname,abort_message,1)
     152!      CALL abort_physic(modname,abort_message,1)
    153153  ENDIF
    154154
Note: See TracChangeset for help on using the changeset viewer.