Changeset 4463 for LMDZ6/trunk/libf
- Timestamp:
- Mar 9, 2023, 5:46:26 PM (19 months ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/atke_exchange_coeff_mod.F90
r4449 r4463 137 137 ELSE ! TO DO 138 138 139 print*, 'traitement non-stationnaire de la tke pas encore prevu'140 stop139 call abort_physic("atke_compute_km_kh", & 140 'traitement non-stationnaire de la tke pas encore prevu', 1) 141 141 142 142 END IF -
LMDZ6/trunk/libf/phylmd/phyaqua_mod.F90
r4253 r4463 135 135 if (year_len.ne.360) then 136 136 write (*,*) year_len 137 write (*,*) 'iniaqua: 360 day calendar is required !' 138 stop 137 call abort_physic("iniaqua", 'iniaqua: 360 day calendar is required !', 1) 139 138 endif 140 139 -
LMDZ6/trunk/libf/phylmd/thermcell_down.F90
r4441 r4463 58 58 59 59 if ( iflag_thermals_down < 10 ) then 60 stop 'thermcell_down_dq = 0 or >= 10' 60 call abort_physic("thermcell_updown_dq", & 61 'thermcell_down_dq = 0 or >= 10', 1) 61 62 else 62 63 iflag_impl=iflag_thermals_down-10 … … 128 129 !!!! tentative de prise en compte d'un flux compensatoire montant !!!! 129 130 if (fup(ig,ilay)-fdn(ig,ilay) .lt. 0.) then 130 write(*,*) 'flux compensatoire montant, cas non traite par thermcell_updown_dq'131 stop131 call abort_physic("thermcell_updown_dq", 'flux compensatoire '& 132 // 'montant, cas non traite par thermcell_updown_dq', 1) 132 133 !fthe(ig,ilay)=(fup(ig,ilay)-fdn(ig,ilay))*trac(ig,ilay-1) 133 134 else … … 161 162 do ig=1,ngrid 162 163 if (fup(ig,ilay)-fdn(ig,ilay) .lt. 0.) then 163 write(*,*) 'flux compensatoire montant, cas non traite par thermcell_updown_dq'164 stop164 call abort_physic("thermcell_updown_dq", 'flux compensatoire ' & 165 // 'montant, cas non traite par thermcell_updown_dq', 1) 165 166 else 166 167 fthe(ig,ilay)=-(fup(ig,ilay)-fdn(ig,ilay))*trac(ig,ilay) … … 191 192 if((fup(ig,ilay)-fdn(ig,ilay)) .lt. 0) then 192 193 write(*,*) 'flux compensatoire montant, cas non traite par thermcell_updown_dq dans le cas d une resolution implicite, ilay : ', ilay 193 stop194 call abort_physic("thermcell_updown_dq", "", 1) 194 195 else 195 196 mstar_inv=ptimestep/masse(ig,ilay) … … 205 206 206 207 else 207 write(*,*) 'valeur de iflag_impl non prevue' 208 stop 209 208 call abort_physic("thermcell_updown_dq", & 209 'valeur de iflag_impl non prevue', 1) 210 210 endif 211 211
Note: See TracChangeset
for help on using the changeset viewer.