Changeset 2311 for LMDZ5/trunk/libf/phylmd/thermcellV0_main.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/thermcellV0_main.F90
r1978 r2311 14 14 USE dimphy 15 15 USE comgeomphy , ONLY:rlond,rlatd 16 USE print_control_mod, ONLY: prt_level,lunout 16 17 IMPLICIT NONE 17 18 … … 45 46 include "YOETHF.h" 46 47 include "FCTTRE.h" 47 include "iniprint.h"48 48 49 49 ! arguments: … … 465 465 if (.not. (f0(1).ge.0.) ) then 466 466 abort_message = 'Dans thermcell_main f0(1).lt.0 ' 467 CALL abort_ gcm(modname,abort_message,1)467 CALL abort_physic (modname,abort_message,1) 468 468 endif 469 469 … … 591 591 zcon2(ig)=zlay(ig,nlay)-(pcon(ig)-pplay(ig,nlay))/(RG*rho(ig,nlay))/100. 592 592 abort_message = 'thermcellV0_main: les thermiques vont trop haut ' 593 CALL abort_ gcm(modname,abort_message,1)593 CALL abort_physic (modname,abort_message,1) 594 594 endif 595 595 enddo … … 790 790 791 791 subroutine testV0_ltherm(klon,klev,pplev,pplay,long,seuil,ztv,po,ztva,zqla,f_star,zw2,comment) 792 USE print_control_mod, ONLY: prt_level 792 793 IMPLICIT NONE 793 include "iniprint.h"794 794 795 795 integer i, k, klon,klev … … 833 833 !thermcell_closure: fermeture, determination de f 834 834 !------------------------------------------------------------------------- 835 USE print_control_mod, ONLY: prt_level,lunout 835 836 IMPLICIT NONE 836 837 837 include "iniprint.h"838 838 include "thermcell.h" 839 839 INTEGER ngrid,nlay … … 880 880 print*,'wmax_sec',wmax_sec(ig) 881 881 abort_message = 'zdenom<1.e-14' 882 CALL abort_ gcm(modname,abort_message,1)882 CALL abort_physic (modname,abort_message,1) 883 883 endif 884 884 if ((zmax_sec(ig).gt.1.e-10).and.(iflag_thermals_ed.eq.0)) then … … 913 913 !-------------------------------------------------------------------------- 914 914 915 USE print_control_mod, ONLY: prt_level 915 916 IMPLICIT NONE 916 917 … … 918 919 include "YOETHF.h" 919 920 include "FCTTRE.h" 920 include "iniprint.h"921 921 include "thermcell.h" 922 922 … … 1711 1711 !thermcell_dry: calcul de zmax et wmax du thermique sec 1712 1712 !-------------------------------------------------------------------------- 1713 USE print_control_mod, ONLY: prt_level 1713 1714 IMPLICIT NONE 1714 1715 include "YOMCST.h" 1715 include "iniprint.h"1716 1716 INTEGER l,ig 1717 1717 … … 1923 1923 !thermcell_init: calcul du profil d alimentation du thermique 1924 1924 !---------------------------------------------------------------------- 1925 USE print_control_mod, ONLY: prt_level 1925 1926 IMPLICIT NONE 1926 include "iniprint.h"1927 1927 include "thermcell.h" 1928 1928
Note: See TracChangeset
for help on using the changeset viewer.