Changeset 4013 for LMDZ6/branches/Ocean_skin/libf/dyn3d/leapfrog.F
- Timestamp:
- Nov 19, 2021, 4:58:59 PM (3 years 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/dyn3d/leapfrog.F
r3416 r4013 748 748 749 749 CLOSE(99) 750 if (ok_guide) then 751 ! set ok_guide to false to avoid extra output 752 ! in following forward step 753 ok_guide=.false. 754 endif 750 755 !!! Ehouarn: Why not stop here and now? 751 756 ENDIF ! of IF (itau.EQ.itaufin) … … 868 873 & vcov,ucov,teta,q,masse,ps) 869 874 ! endif ! of if (planet_type.eq."earth") 875 if (ok_guide) then 876 ! set ok_guide to false to avoid extra output 877 ! in following forward step 878 ok_guide=.false. 879 endif 870 880 ENDIF ! of IF(itau.EQ.itaufin) 871 881
Note: See TracChangeset
for help on using the changeset viewer.