Changeset 4368 for LMDZ6/branches/Ocean_skin/libf/phylmdiso/wake.F90
- Timestamp:
- Dec 6, 2022, 12:01:16 AM (20 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phylmdiso/wake.F90
r3927 r4368 34 34 USE print_control_mod, ONLY: prt_level 35 35 #ifdef ISO 36 USE infotrac_phy, ONLY : ntraciso 36 USE infotrac_phy, ONLY : ntraciso=>ntiso 37 37 #ifdef ISOVERIF 38 38 USE isotopes_verif_mod … … 355 355 356 356 ! print*, 'wake initialisations' 357 #ifdef ISOVERIF358 write(*,*) 'wake 358: entree'359 #endif357 !#ifdef ISOVERIF 358 ! write(*,*) 'wake 358: entree' 359 !#endif 360 360 361 361 ! Essais d'initialisation avec sigmaw = 0.02 et hw = 10. … … 497 497 ! ------------------------------------------------------------------------ 498 498 499 #ifdef ISOVERIF500 write(*,*) 'wake 500: debut inits'501 #endif502 499 !jyg< 503 500 !! DO k = 1, klev … … 549 546 #endif 550 547 551 #ifdef ISOVERIF552 write(*,*) 'wake 552: milieu inits'553 #endif554 548 IF (iflag_wk_act == 0) THEN 555 549 act(:) = 0.
Note: See TracChangeset
for help on using the changeset viewer.