Changeset 1625 for LMDZ5/trunk/libf/dyn3d/leapfrog.F
- Timestamp:
- May 9, 2012, 3:14:48 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/leapfrog.F
r1616 r1625 212 212 dq(:,:,:)=0. 213 213 CALL pression ( ip1jmp1, ap, bp, ps, p ) 214 if ( disvert_type==1) then214 if (pressure_exner) then 215 215 CALL exner_hyb( ip1jmp1, ps, p,alpha,beta, pks, pk, pkf ) 216 else ! we assume that we are in the disvert_type==2 case216 else 217 217 CALL exner_milieu( ip1jmp1, ps, p, beta, pks, pk, pkf ) 218 218 endif … … 369 369 370 370 CALL pression ( ip1jmp1, ap, bp, ps, p ) 371 if ( disvert_type==1) then371 if (pressure_exner) then 372 372 CALL exner_hyb( ip1jmp1, ps, p,alpha,beta,pks, pk, pkf ) 373 else ! we assume that we are in the disvert_type==2 case373 else 374 374 CALL exner_milieu( ip1jmp1, ps, p, beta, pks, pk, pkf ) 375 375 endif … … 485 485 486 486 CALL pression ( ip1jmp1, ap, bp, ps, p ) 487 if ( disvert_type==1) then487 if (pressure_exner) then 488 488 CALL exner_hyb( ip1jmp1, ps, p,alpha,beta, pks, pk, pkf ) 489 else ! we assume that we are in the disvert_type==2 case489 else 490 490 CALL exner_milieu( ip1jmp1, ps, p, beta, pks, pk, pkf ) 491 491 endif
Note: See TracChangeset
for help on using the changeset viewer.