Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/yamada4.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/yamada4.F
r938 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE yamada4(ngrid,dt,g,rconst,plev,temp … … 106 106 c$OMP THREADPRIVATE(rino,smyam,styam,lyam,knyam,w2yam,t2yam) 107 107 logical,save :: firstcall=.true. 108 109 character (len=20) :: modname='yamada4' 110 character (len=80) :: abort_message 111 108 112 c$OMP THREADPRIVATE(firstcall) 109 113 frif(ri)=0.6588*(ri+0.1776-sqrt(ri*ri-0.3221*ri+0.03156)) … … 128 132 129 133 if (.not.(iflag_pbl.ge.6.and.iflag_pbl.le.9)) then 130 stop'probleme de coherence dans appel a MY' 134 abort_message = 'probleme de coherence dans appel a MY' 135 CALL abort_gcm (modname,abort_message,1) 131 136 endif 132 137
Note: See TracChangeset
for help on using the changeset viewer.