Changeset 2286 for LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F
- Timestamp:
- May 20, 2015, 3:27:07 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/leapfrog_loc.F
r2270 r2286 308 308 309 309 1 CONTINUE ! Matsuno Forward step begins here 310 write(*,*) 'leapfrog 298: itau=',itau310 !write(*,*) 'leapfrog 298: itau=',itau 311 311 jD_cur = jD_ref + day_ini - day_ref + & 312 312 & itau/day_step … … 713 713 IF( forward. OR . leapf ) THEN 714 714 ! Ehouarn: NB: fields sent to advtrac are those at the beginning of the time step 715 write(*,*) 'leapfrog 679: avant CALL caladvtrac_loc'715 !write(*,*) 'leapfrog 679: avant CALL caladvtrac_loc' 716 716 CALL caladvtrac_loc(q,pbaru,pbarv, 717 717 * p, masse, dq, teta, 718 718 . flxw,pk, iapptrac) 719 719 720 write(*,*) 'leapfrog 719'720 !write(*,*) 'leapfrog 719' 721 721 if (ok_iso_verif) then 722 722 call check_isotopes(q,ijb_u,ije_u, … … 755 755 ! CALL FTRACE_REGION_BEGIN("integrd") 756 756 757 write(*,*) 'leapfrog 720'757 !write(*,*) 'leapfrog 720' 758 758 if (ok_iso_verif) then 759 759 call check_isotopes(q,ijb_u,ije_u,'leapfrog 756') … … 765 765 ! $ finvmaold ) 766 766 767 write(*,*) 'leapfrog 724'767 !write(*,*) 'leapfrog 724' 768 768 if (ok_iso_verif) then 769 769 call check_isotopes(q,ijb_u,ije_u,'leapfrog 762') … … 1148 1148 call check_isotopes(q,ijb_u,ije_u,'leapfrog 1132') 1149 1149 endif !if (ok_iso_verif) then 1150 write(*,*) 'leapfrog 1134: iflag_phys=',iflag_phys1150 !write(*,*) 'leapfrog 1134: iflag_phys=',iflag_phys 1151 1151 1152 1152 IF(iflag_phys.EQ.2) THEN ! "Newtonian" case … … 1221 1221 c dissipation horizontale et verticale des petites echelles: 1222 1222 c ---------------------------------------------------------- 1223 write(*,*) 'leapfrog 1163: apdiss=',apdiss1223 !write(*,*) 'leapfrog 1163: apdiss=',apdiss 1224 1224 IF(apdiss) THEN 1225 1225
Note: See TracChangeset
for help on using the changeset viewer.