Changeset 2311 for LMDZ5/trunk/libf/phylmd/thermcell_main.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/thermcell_main.F90
r2193 r2311 25 25 USE comgeomphy , ONLY:rlond,rlatd 26 26 USE indice_sol_mod 27 USE print_control_mod, ONLY: lunout,prt_level 27 28 IMPLICIT NONE 28 29 … … 66 67 #include "YOETHF.h" 67 68 #include "FCTTRE.h" 68 #include "iniprint.h"69 69 #include "thermcell.h" 70 70 … … 565 565 if (.not. (f0(1).ge.0.) ) then 566 566 abort_message = '.not. (f0(1).ge.0.)' 567 CALL abort_ gcm(modname,abort_message,1)567 CALL abort_physic (modname,abort_message,1) 568 568 endif 569 569 … … 695 695 if (ierr==1) then 696 696 abort_message = 'thermcellV0_main: les thermiques vont trop haut ' 697 CALL abort_ gcm(modname,abort_message,1)697 CALL abort_physic (modname,abort_message,1) 698 698 endif 699 699 … … 1097 1097 1098 1098 subroutine test_ltherm(klon,klev,pplev,pplay,long,seuil,ztv,po,ztva,zqla,f_star,zw2,comment) 1099 USE print_control_mod, ONLY: prt_level 1099 1100 IMPLICIT NONE 1100 #include "iniprint.h"1101 1101 1102 1102 integer i, k, klon,klev … … 1138 1138 subroutine thermcell_tke_transport(ngrid,nlay,ptimestep,fm0,entr0, & 1139 1139 & rg,pplev,therm_tke_max) 1140 USE print_control_mod, ONLY: prt_level 1140 1141 implicit none 1141 1142 1142 #include "iniprint.h"1143 1143 !======================================================================= 1144 1144 !
Note: See TracChangeset
for help on using the changeset viewer.